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This publication describes the internal logic of the 
IBM System/360 Time Sharing System (TSS/360) 
Independent Utility Programs. 

Program logic manuaLs are intended for use by IBM 
customer engineers involved in program maintenance and 
by system programmers involved in altering program 
design. Program logic information is not necessary for 
program operation and use. 



PREFACE 



This publication describes the internal 
logic of the TSS/360 Independent Utility 
Programs: 

Direct-Access Storage Device 
Initialization (DASDI) program, 

Dump/Restore (DASDDR) program. 

Direct- Access Print (DADUMP) program, 

System/360 Model 67 Core Jump program, 

System/360 VAM 2 Utility Program. 

Each program is a self-contained module, 
having its own I/O supervisory routines. 
Accordingly, each section of this 
publication is devoted to one program. 

The manual is intended for IBM service 
and maintenance personnel, and requires 



familiarity with overall TSS/360 techniques 
and terminology, as contained in: 



IBM System/360 Time Sharing Sy s tem: 
Concepts and Facilities , Form 
C28-2003 



IBM System/360 Time Sharing S yste m: 

Independent Utilities , Form C28-20 38 

IBM System/360 Time Sharing System: 
System Messages , Form C 2 8-2 037 

IBM System/360 Time Sharing System: 

System Control Blocks Program Logic 
Manual, Form Y28-2011 

IB M System/360 Time Sharing Sy s tem: 
System Generation an d Maint enan ce 
Program Logic Manual , Form Y28-2015 



Four t h Edition (January ] 970) 

This is a major revision of, and makes obsolete, Form 
¥28-2039-2. This edition reflects changes released for 
Version 6, Modification 0, of IBM 3ystem/36Q Time Sharing 
System, including the VA!-' 2 utility Program, and changes to 
Dump/Restore. 

This edition is current with Version 6, Modification 0, 
and remains in effect for all subsequent versions or 
modifications of IBM System/360 Time Sharing System unless 
otherwise indicated. Significant changes will be provided in 
new editions or Technical Newsletters. Before using this 
publication in connection with the operation of IBM systems, 
refer to the latest edition of IBM Systen,/3 60 Time Sh aring 
Syste m » Addendum , Form C28-2043, for the editions of 
publications that are applicable and current. 

Changes to the text are indicated as follows: 



Symbol 



(next to a page 
number or caption 

of an illustration) 

Cin the margin at 
left of text) 



Meaning 

The page (or illustration) has been 
revised and should be reviewed in 
its entirety. 

Adjacent text contains a change. 
(This symbol is not used if a bullet 
appears next to the page number.) 



This publication was prepared for production using an IBM 
computer to update the text and to control the page ani line 
format. Page impressions for photo-offset printing were 
obtained from an IBM 1403 Printer using a special print 
chain. 

Request for copies of IBM publications should be made to 
your IBM representative or to the IBM branch office serving 
your locality. 

A form is provided at the back of this publication for 
reader's comments. If the form has been removed, comments 
may be addressed to the IBM corporation, Time Sharing 
System/360 Programming Publications, Department 6U3, 
Neighborhood Road, Kingston, N.Y. 12M01 

© Copyright International Business Machines Corporation 1967, 
1968, 1969, 1970 
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INTRODUCTION 



The TSS/360 independent utility programs 
support the IBM System/360 Time Sharing 
System. The programs, operating indepen- 
dently of TSS/360, perform their own inter- 
rupt processing and input/output functions. 
The programs are: 

Direct-Access Storage Device Initialization 
(DASDI) ; Sets the initial format for disk 
and drum storage units for TSS/360 use. 
Specifically, the program initializes: 

1. 2311 disk storage drive in either of 
three formats; sequential access 
method (SAM) , virtual access method 
(VAM 1) i or VAM 2 . 

2. 2314 direct-access storage facility in 
either SAM or VAM 1 or VAM 2 format: 

3. 2301 drum storage in modified VAM 
(4096 byte) format. 

In addition, DASDI assigns alternate tracks 
(GETALT function) to the SAM formatted 2311 
or 2314, if necessary, or makes defective 
pages unavailable for VAM 2 formatted 
disks. DASDI is used to prepare direct- 
access devices for TSS/360 utilization. 

Dump/Restore (DAS DDR) : Dumps and restores 

the contents of a direct-access volume. 

DASDDR dumps the data contents of a volume 
from: 

2311 and 2314 disk storage to magnetic 
tape, 

2311 disk storage to 2311 disk 
storage, 

2314 disk storage to 2314 disk 
storage, 

2311 disk storage to 2314 disk storage 
(VAM 2 format only) . 

Data is restored from: 

2400 magnetic tape to 2311 and 2314 
disk storage. 

Direct-Access Device Print (DADDMP) : 
Prints the contents of direct-access 
devices 2311 and 2314 disk storage, and 
2301 drum. DADDMP is used to obtain a 



printout of the drum or disk and may be 
used for checking and/or debugging 

purposes . 



System/360 Model 67 Core Dump : Provides a 
means of printing all information pertinent 
to each CPU of the system and the contents 
of main storage. Addressable core storage 
is computed dynamically. The program has 
two functions; 

1. CPU dump: lists in special format the 
register contents and the PSAs for 
each CPU in the system? and 

2. Core dump: lists the contents of main 
storage and the protection keys. 

The core dump program is used primarily for 
program checkout and maintenance. 

VAM 2 Utility Program (VAM2UT) : dumps, 
displays, and patches VAM 2 format disk 
volumes! it is entered in TSSS format from 
either the operator console or the 25uc 
card reader. 

The TSS/360 independent utility programs 
run on any standard model of System/360 
having sufficient main storage and the 
required device configuration. The core 
dump program operates on a model 67 only. 
Since the programs are independent of TSS/ 
360 they are controlled and loaded from the 
console as card decks or card images on 
tape. 

Control statements for the requested 
program can follow the last card or card 
image of the program, or can be entered on 
a separate input device. Control state- 
ments are used to specify program 
parameters. 

The independent utility programs, except 
core dump, produce error and diagnostic 
messages on a user-assigned I/O device. 
Core dump program communicates through con- 
trol panel lights. The error messages 
describe error conditions associated with 
the programs. Diagnostic messages describe 
and locate faulty conditions associated 
with the hardware. Error and diagnostic 
messages for TSS/360 independent utility 
programs are listed in System Messages. 



Introduction 
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SECTION Is DIRECT-ACCESS STORAGE DEVICE INITIALIZATION (DASDI) PROGRAM - MODULE CEBDI 



The Direct-Access storage Device Ini- 
tialization (DASDI) program, module CEBDI, 
initializes the IBM 2311 disk storage drive 
and the IBM 2314 direct-access storage 
facility in one of three formats: Sequen- 
tial Access Method (SAM) or Virtual Access 
Method (VAM 1 and VAM 2) . DASDI initial- 
izes the IBM 2301 Drum Storage in page 
(4096-byte) format, 

ATTRIBUTES ; DASDI operates outside and in 
support of TSS/360 as a privileged, non- 
relocatable, serially-reusable program. 

RESTRICTIONS; None. 



The operator then indicates where the con- 
trol cards are to be read from: 



input=xxxx cuu 



where xxxx is the device type (2540 or 
2400), and cuu is the channel and unit num- 
ber of the physical device address. If the 
1052 is unavailable, the information may be 
entered via the console by storing into 
locations 0110 and 0111 (hexadecimal) one 
of the following: 



HARDWARE CONFIGURATION REQUIREMENTS ; The 
DASDI program runs on any standard model of 
System/360 with sufficient main storage and 
the required device configuration. The 
program is loaded as card deck or as card 
iroages on tape and is controlled from the 
console* DASDI machine requirements ares 



Main Storage 

to initialize a 2311 
to initialize a 2301 
or 2314 

Program Input Device 



Control Statement Input 
Device 

Message Output Device 



Other 



65,536 bytes 

131,072 bytes 

2540 or 2400 
(9 track) 

2540 or 2400 
(9 track) 

1403, 1052 or 
2400 (9 track) 

2311, 2314, 
or 2301 



PROGRAM INITIATION AND OPERATION: 



The 



first four cards on the object deck are 
absolute loader cards, which load the pro- 
gram beginning at location 0. The first 
eight bytes become a PSW that branches con- 
trol to location START. 

START initializes the general registers, 
establishes base registers, sets up the 
PSWs, and then places the program in a wait 
state. When the wait state is entered, the 
program is set up to accept interrupts from 
either the console keyboard or the external 
interrupt key. DASDI is not interruption 
driven, but, when necessary, will enable 
I/O interruptions. If, as is usual, the 
interruption comes from the 1052 keyboard, 
the DASDI program causes the following mes- 
sage to be typed outs 



CEB105A DEFINE 



INPUT DEVICE . 



xcuu 

where x may be: 

for 2540 card reader: 

2 for a 2400 tape (9 track); 

and where cuu is the channel and unit num- 
ber of the physical device address. 

For each method, DASDI fields the inter- 
ruption and, after checking the validity of 
the input device, reads the control state- 
ments and begins processing. 

For the 2311 and 2314 disk storage 
units, the information placed on cylinder 
0, track reflects the description of the 
volume to be initialized. Records 1 and 2 
are used for IPL records. Record 3 con- 
tains the standard volume label, and rec- 
ords 4 through 10 provide space for up to 
seven user labels, as requested by appro- 
priate control statements. If IPL text 
information is requested, and if text cards 
are supplied, up to 36 00 bytes of text are 
inserted on cylinder 0, track 1. "Text" 
refers to cards punched in EBCDIC format; 
that is, the normal output of the BOS/36 
or OS/360 assembler. If the IPL option is 
requested, but no text cards are supplied, 
DASDI inserts on the disk a pre-assembled 
TSS Startup Prelude program, which is used 
for the initial stages of system genera- 
tion. The Startup Prelude description is 
found in System Generation and Maintenance. 

The VTOC (for VAM 1) is placed as speci- 
fied in the control statement with certain 
restrictions s 

1. The VTOC may not be written on cylin- 
der 0, track 0. 

2. It must not be placed on track 1, if 
the IPL option is exercised. 



3. It must not be placed on cylinder 199, 
if the pack is to be initialized in 
VAM format (this- cylinder is used for 
the standard error retry procedures) . 

4. For SAM-formatted devices, the VTOC 
must not be placed on any alternate 
track. 

If the VTOC extent specified does not 
end on a cylinder boundary, the remainder 
of the cylinder is padded in 140- byte rec- 
ords of zeros. 

For SAM volumes, the remainder of each 
track following record zero, which has no 
data written on it, is erased. VAN volumes 
have 4 096 -byte records of zeros written on 
the track. Since the maximum size record 
for a 2311 device is 3625 bytes per track, 
the page-size record is written as a 3625- 
byte record on one track; the overflow bit 
is set in the flag byte. The remainder of 
the page is written on the next track. The 
remainder of this track has less than 3625 
bytes left for use, and this is written in 
a similar manner, the overflow bit always 
being set and the combined records on suc- 
cessive tracks amounting to 4096 bytes. 
See Tables 4, 5, and 6 for track/ page 
relationship. 

Initialization of the 2301 drum is done 
in a modified VAM format. This is the for- 
mation of 4096-byte records alternated with 
246-byte dummy records. Each 4096-byte 
record represents a VAM page, with nine 
pages for each even-odd pair of tracks. 
Unlike the disk units, the drum has no IPL, 
VTOC, or label records written on it. 
There is, however, a bit map at the begin- 
ning of the drum. This bit map is a modi- 
fied version of the auxiliary storage allo- 
cation table (ASAT) as described in System 
Control Blocks PLM . Tracks 196 and 197 are 
marked unavailable due to the error retry 
requirements. The page which overflows 
from track 198 to track 199 is unavailable 
due to hardware restrictions. 



• Detect and list defective tracks. 

• Write standard home address and record 
zero for each track. 

• Write standard VTOC (SAM and VAM 1) or 
standard PAT (VAM 2). 

• Write the optional IPL program. 

SAM format devices have alternate tracks 
assigned to replace defective tracks. VAM 
format operation has defective tracks des- 
ignated as unavailable. The alternate 
track (GET ALT function) routine for SAM 
format devices performs the followinq; 

• Selects first available alternate front 
VTOC. 

• Chains the defective primary track to 
the alternate. 

• Updates the VTOC availability list. 

A normal DASDI exit results in a wait 
PSW (Es in the console lights) , and an cnd- 
of-job message to the operator. Error con- 
ditions are noted by a PSW and the appro- 
priate error message. 

The DASDI routines are summarized in Table 
1 and Chart AA. 



D ASDI I/O SU P ERVISORY ROUTINE S 

The DASDI I/O supervisory routines pro- 
vide these functions: 

1. Program initialization and 
termination. 

2. I/O processing: control, int«»rrup 
tion, error. 

3. Message generation. 



INITIALIZATION ROUTINE 



OPERATION 



START Routine 



The absolute loader gives control to 

DASDI at the START entry point. Control 
cards are read and analyzed to determine 
the requested function: initialization, 
obtaining an alternate track (GETALT) , or 
clearing the PAT (VAM 2 only). The ini- 
tialization routine is entered at either 
VOLCHK, for checking volume labels, or 
GEN00. The GETALT routine is entered at 
GETALTYZ. The PAT CLEAR routine is entered 
at DAS DIP AT. 

The initialization routine performs the 
following functions: 



START is given contol on entry to tin- 
program. This routine: 

• Clears general registers. 

• Establishes base registers. 

• Establishes DASDI PSWs . 

• Sets SEREP flags in the old machine 
check PSW. 

• Enters wait state pending SYSIN device 

definition. 
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Table 1. DASDI Routines 

r T T . 1 

| Type ( Name | Function I 

j. + . x . ., 

| Initialization | START (Clears registers and establishes DASDI PSWs. | 

} Routines j | | 

| | (Sets up base registers, clears registers. | 

j (CKINPUT [Sets up interrupt PSW, and resets switches; sets up SYSIN j 

} j | device from console input. j 

ill I 

[ (ATTN |Prints messages to operator requesting input device definition. | 

j. + + . .j 

| I/O Routines (SYSIN | Stores buffer address in CCW and sets a read command. ( 

III I 

( (STARTIO (Controls all I/O operations performed by utility programs. ( 

t I I ! 

| (CKCSW (Examines and classifies I/O interrupts. | 

[Control j CLRSCAN (Performs control statement analysis, housekeeping functions on ( 

( Statement j (program switches and buffer areas, and links to RDCARD routine. ( 

(Analysis | j j 

(Routines | RDCARD (Scans control cards and identifies the fields. j 

111 1 

j (CKVOLLBLj Matches control card specified ID with volume on disk pack. | 

III I 

I (GENOO | Builds a pattern of hexadecimal 00 and 55 in core storage used ( 

| | | to write out on disk for surface analysis. j 

j Formatting | ADTOLI ST | Accumulates addresses of defective tracks and produces listings | 
j j | of these addresses. j 

III I 

[ (CONSTR1 (Verifies user labels, track conditions, format. Prepares to | 

j j (write track 00. ( 

III I 

| (CONSTR2 | Writes track 00. | 

III I 

J ( FMTVTOC | Handles the requirements for building the VTOC for I 

j | j SAM-initialized devices. J 

III 1 

| (WRTVTOC (Writes the DSCRs constructed by FMTVTOC at the user-designated | 

( ( (location. I 

I I I I 

j [ENTPOITlj Formats the 2311 (if entered at VAM2311) or the 2314 Cif | 

J [ | entered at VAM2311) in 4096-byte records and constructs the ( 

( ( | user-requested VTOC for VAM 1 format. j 

III I 

| (VAM2301 | Handles the patterning of the 2301 device in a modified VAM | 

( ) (format. | 

III I 

( ( DAS DIP AT | Removes data set indications from the PAT (VAM 2 only). | 

(. . + + . H 

(Termination | EO J [Prints the end-of-job message, checks for the LA5TCARD, and [ 
| | ( places the CPU in a terminating wait state. | 

III i 

j | GET ALT YZ ( Sets Entry to process GETALT request, tests volume label | 

| ( j checking switch. I 

111 I 

( | TRKPRNT (Causes the printing of a message, containing the addresses of | 

j ( (the defective track and its assigned alternate. ( 

(Message (PRINT [Writes messages using specified message output device. I 

( Routi nes | j I 

( | IOPRINT [Prints error messages, saves channel, CCW-status, and two sense} 

| ( | bytes. | 

III I 

[ [WTO [Writes messages to the operator when input device is a ( 

j j (typewriter. I 

i x x J 
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When the operator enters the device 
code, control is passed to CKINPUT or ATTN 
as shown in the following decision table. 

I ! 

SYSIN = CONSOLE |Y[ 
SYSIN = TYPEWRITER j |Y 



CK INPUT 
ATTN 



CKINPUT Routine 



X| 



fx 



If SYSIN is the console, CKINPUT 
receives control following an external 
interruption. On entry, SYSIN device is 
tested and the appropriate processing rou- 
tine is entered to fill in the UCB with the 
device code. 

CKINPUT then isolates the channel number 
for a validity check. If the channel num- 
ber is greater than 6, an error is indi- 
cated and the system enters a wait state. 
Assuming the channel number is not greater 
than 6, the SYSIN channel address is 
entered in the SYSIN UCB. Control then 
passes to CLRSCAN for control statement 
analysis. 

ATTN Routine 

When the SYSIN device is defined as a 
typewriter, ATTN is entered via an I/O 
interruption. On entry, the system mask is 
set to allow interruptions. 

ATTN inserts the device type and channel 
number in the operator UCB (UCBOPR) and 
enters the write-to-operator routine (WTO) 
at location OPPRNT. WTO issues a message 
requesting the operator to enter the DASDI 
input device. 

On return from WTO, ATTN loads parameter 
registers with the typewriter UCB and Read 
CCW. STARTIO is entered to read the input- 
device definition from the typewriter. 

When control is returned from STARTIO, 
DEVLUP routine is entered with the device 
address to test for a valid device. If the 
device is invalid, a message is assigned 
and the system enters the wait state. If 
the device is valid, ATTN places the device 
address in the SYSIN DCB and passes control 
to CLRSCAN. 



I/O ROUTINES 

SYSIN Routine 

SYSIN is entered by a bran ch-and-1 ink 
instruction to the SYSIN entry point. The 
return address is specified in register 15 j 
register 2 contains a buffer address. 



On entry, all general registers are 
saved. SYSIN stores the buffer address 
from register 2 in the SYSIN CCW, and links 
to STARTIO with the addresses of the SYSIN 
UCB and CCW list. STARTIO reads data from 
the defined input device. 

On return from STARTIO, registers are 
restored and control passes to the caller 

via register 15. 

STARTIO Routine 

STARTIO is entered at either the STARTIO 
or the STARTIOX entry points. Register 2 
(UCBREG) contains the address of the device 
UCB? register 3 (CCWREG) contains the 

address of the CCW list. 

On entry to STARTIO, all general regis- 
ters are saved (STARTIOX skips this step). 
The routine loads the device address into 
register CSR*4 and sets the system mask *:o 
allow I/O interruptions which arc 1 no- 
serviced. 

When all pending I/O interruptions arc- 
serviced, a test I/O loop is entered until 
the unit is not busy. At this point inter- 
ruptions are disabled and the start I/O 
command is issued repeatedly until 
accepted. CKCSW is entered to test for I/O 
errors. 

On exit, registers are restored and con- 
trol is returned to the caller via register 
9. 

CKCSW Routine 

CKCSW is entered to service all l/c 
interruptions. On entry, register 2 
CUCBREG) contains the UCB address for the 
device which caused the interruption. 
CKCSW examines the status portion of the 
CSW to determine the type of interruption. 



CONTROL STATEMENT ANALYSI S 

When control statements are processed, 
they are checked for correct sequence, 
printed out on the MSG device, and switches 
are set. When the END statement, or an 
IPLTXT statement is encountered, all out- 
standing requests made by the control 
statements are honored. 

GETALT statements are saved and the 
requests are honored upon receipt of the 
END statement or another GETALT request. 

As each of the required and optional 
keyword parameters is encountered, specific 

areas are initialized for future analysis 
throughout the program. Table 2 represents 
a list of these areas, their respective 
lengths, and a description of their use. 
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Table 2. Keyword Parameters 

[Keyword (Length | Use j 

j. + + . ^ 

J SEQSW jl byte J checks for proper control card sequencing j 

f + + , 

(KEYSEQ |1 byte J checks for the existence of the required f 

| j | keyword parameters j 

i ___ _____4.__ . ...j... _ _ __ _ ___ _ ________ -i 

j IPLSW jl byte jthe low-order bits indicate whether IPL has j 

J J (been requested and/or whether IPL text has j 

( | j been supplied j 

j + + 4 

(BRBYTE jl byte | contains a hexadecimal code pertaining to the device type: j 

| | { 2311 - 08 I 

1 1 j 2314 - 00 I 

| i | 2301 - 10 | 

JVOLSECNOJ1 byte | contains the volume security number obtained from j 

| j jthe control statement VOLPASS parameter = 1 or 0. j 

^ . + . + -f 

|SAVSPACE(1 byte (number of user labels | 

JVTOCBGN I *# bytes j contains the beginning absolute track address j 

j j ( (user-specified) of the VTOC. j 

JVTOCEND (4 bytes j contains the number of tracks specified for the VTOC j 

ill I 

JPATADD | 8 bytes | contains the relative page number of the PAT. | 

III I 
|ROMAX J8 bytes jthe last two bytes are used to specify the relative track capacity of j 

| j jthe subject device: j 

j j j 2311 - 3,625 bytes | 

j j j 2314 - 7,294 bytes | 

| | ( 2301 - 20,483 bytes ( 

(EXTNTAB j8 bytes | contains the extents of the VTOC and the address j 

( j j of the first available alternate (SAM) j 

j. + + j 

JVOLCHKSWJ2 bytes | used to identify the action regarding the volume j 

j ( j label checking option | 

(BYPASS Jl byte (indicates the action to be taken regarding the j 

( j j program's surface analysis checking routines j 

(ALTHOLD j 6 bytes | contains the address of the first available j 

| j | alternate track and the total number of ( 

j J ] alternates (see EXTNTAB) j 

JAMSW jl byte j indicates the type of access method to be utilized in formatting the j 

( j (device: I 

j j | SAM - X'Ol' | 

1 | j VAM 1 - X'02 1 ( 

( | j VAM 2 - X f 03» j 

(VOLTSW jl byte {indicates the status of the volume to be j 

| ( | j initialized: PAGING - X«40« j 

| j | PUBLIC - X' 20* j 

| j j PRIVATE - X'OO' j 

JPVOLNOSW|l byte (indicates whether a public volume is specified | 

III I 

(PVOLHOLD|2 bytes | contains the public volume number j 

ill i 

[FLGANLSWJI byte (indicates whether the FLAGTEST option is specified I 



The entry point to this routine is 
CLRSCAN. Housekeeping functions are first 
performed on program switches and buffer 
areas required by the program. This rou- 
tine then links to the control card scan 
routine at RDCARD. RDCARD returns a point- 
er to a field and the length of that field 
in registers SCANADR and LENGTH, respec- 
tively, and an indication of the field type 
in location SWITCHED. SWITCHED is a one- 
byte switch with the following settings: 



Bit 



Value 

1 


Meaning 

Control statement error 


1 


1 


Bypass 


2 




Not Used 



3 = First entry; 

1 = subsequent entry 

4 1 Command found 

5 1 Keyword found 

6 1 Parameter found 



Entry point to the volume label checking 
routine in the DASDI program is at 
CKVOLLBL. 

GENQO Routine 

The GEN 00 routine sets up the surface 
analysis tables (TABOO and TAB5S) and 
determines the device and respective number 
of bytes per track to be tested. However, 
if the bypass option is selected (J)ADEF 
control card) this area is not used. Each 
track is tested by first checking for a 
good recording surface (INTALT). On disk 
storage, SAM format, the alternate tracks 
are 'checked first (the alternate track con- 
cept is not valid for VAM format). If the 
alternate track is found to be defective, 
it is flagged,* later, FMTVTOC adjusts field 
six of the VTOC DSCB to indicate the number 
of available alternate tracks. If a pri- 
mary track is found to be defective, an 
alternate is assigned by ASGNALT, and a 
message to this effect is printed. If the 
device to be initialized is a VAM format, 
the addresses of defective tracks are 
accumulated. 



7 l Right parenthesis found 

Validity checks are then performed on 
the scanned data. If an error is detected 
in the input data, an attempt is made to 
print a message on the defined message out- 
put device. If the message output device 
is not defined, an attempt is made to issue 
the message, using the write to operator 
routine. If neither device is defined, a 
WAIT state is entered. When the message is 
successfully issued, a wait state is 
entered, and the program must be reinitia- 
ted and the corrected statement submitted. 

At the completion of the control state- 
ment analysis routine, control is passed to 
either the initialization (GEN00) routine, 
the assigning of an alternate (GETALTYZ) 
routine, or clearing the PAT routine 
(DASDI PAT) . 

The initialization is entered at GEN00 
if the user has specified VOLlD=sCRATCri. 

In all other cases, the initialization is 
entered at VOLCHK, which passes control to 
CKVOLLBL to perform a validity check. 

Volume Label Checking 

The DASDI program compares the volume 
serial number of the object volume to that- 
specified by the VOLID parameter, if both 
are present. If the VOLID parameter speci- 
fies SCRATCH, no comparison occurs. If a 
serial number is specified, and it is not 
equal to that in the volume label, or if 
the volume label is not present, this rou- 
tine causes an appropriate message to be 
printed and terminates the program. 



Upon encountering a defective track, 
control is passed to ADTOLIST, which accu- 
mulates the addresses of bad tracks. When 
200 addresses are noted, they are printed 
out with the option to continue or termin- 
ate the job. The CPU is placed in the wait- 
state with hexidecimal FFFFs displayed on 
the console. If the option to continue if-; 
selected, the buffer area is cleared and 
control returns to the surface analysis- 
routine. When all tracks are checked, con- 
trol passes to ADTOLIST, which prints the 
track addresses in the buffer. 



FO RMAT ROUTINES 

ADTOLIST Routine 

ADTOLIST is entered to accumlate and 
print a list of defective or unavailable 
tracks. On entry, registers are saved and 

a base register is established. ADTOLIST 
first executes a series of compares to 
determine the entry condition and t ru 
action to be taken. Branches are made 
accordingly. 

ADTOLIST is entered by the surface anal- 
ysis routines (VAM2311, VAM2314, VAM2 301) 
to accumulate defective track addresses in 
LISTAREA and BUFFERME. When 200 defective 

track addresr.es are stored in BUFFERME, * h> 
list is printed and the system enterr, a 
wait state. Trie operator may, at tnis 
point, continue or terminate the job. 
Assuming the job is continued, BUFFERME :; 
cleared for further accumulation of defec- 
tive track addresses. 
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On exit, ADTOLIST places an ID code in 
register 2 which indicates the action to be 
taken. The codes are found in Table 3. 

The tracks on a device are tested in the 
following manner: the home address (HA) is 
written followed by a maximum- length record 
zero consisting of a data field of identi- 
cal bytes of hexadecimal 00. The track is 
then read and checked. The home address 
and a maximum- length record zero is again 
written, this time consisting of a data 
field of identical bytes of hexadecimal 55. 
The track is again read and checked. The 
home address and record zero (track des- 
criptor record 8-byte count field followed 
by an 8-byte data field of zeros) are then 
written and they are both read again for a 
final test. 

If this procedure is successful, the 
track is flagged as operative. If an error 
is discovered during the above routines, 
the steps are repeated ten more times. If 
an error does not occur, the track is 
flagged as operative. However, should an 
error occur during the retry phase, the 
track is noted as defective with the proper 
action taken. 

If an error occurs during surface analy- 
sis, the appropriate action depends on the 
location, device type, access method, or a 
combination of these factors. When writing 
the home address and track descriptor rec- 

Table 3. ADTOLIST Identifying Code 



(ID Code) 



Action to be taken 



h 



1 

i 

! 2 

I 

I 3 

I 

I ^ 

I 

I 5 

i 

I 6 

I 

I 7 

I 

I 8 

I 

I ^ 

i 

| 10 

I 

j 11 

I 

I 12 



4- 



H 



| Surf ace analysis error on a 2311 | 

t I 

(Surface analysis error on a 2314 j 

I I 

| Formatting finished | 

I I 

i Formatting error on a 2311 j 

! I 

| Surface analysis error on a 2301 j 

I I 

|IPL requested on a 2311 and 2314 ( 

I I 

| Error retry cylinder on a 2311 | 

I I 

| Error retry cylinder on a 2314 | 

I I 

| Error on an error retry track j 



Finished with surface analysis 



I 

I 
I 

| Not used 

I 

| Formatting error on a 2314 

I I 

J 13 | Formatting error on a 2301 

I 



i 14 



| Error retry tracks on a 2301 



-j 



ora in SAM format, an error results in job 
termination, inasmuch as an alternate can- 
not be assigned. If the VAM format is em- 
ployed, the corresponding pages are noted 
as unavailable and the job continues. 

Regardless of the device type or the 
format, an error on cylinder 0, track 00, 
results in job termination. Also, the job 

is terminated if (1) an error occurs on 
cylinder 0, track 01 (only for the 2311 and 
2314 where IPL has been requested), and (2) 
if an error occurs on the track designated 
for the VTOC. 

Finally, an error occurring on cylinder 
199 (VAM 1 or VAM 2) produces a message to 
the operator giving the option to continue 
or terminate the job. In the case of the 
2301 drum, an error on tracks 196/197 pro- 
duces the same option message. Errors 
occurring on any other cylinders/tracks 
result in either the assigning of an 
alternate (SAM), or making the correspond- 
ing pages unavailable (VAM 1 or VAM 2). 

When all tracks are initialized, control 
is passed to CONSTR1, which builds an image 
of track zero in main storage (see Figure 
1). If however, the device is the 2301 
drum, control is passed to VAM2301. 

CONSTR1 Routine 

CONSTR1 is entered to construct and 
write track zero. CCWs are saved on entry. 

CONSTR1 first checks to see if addition- 
al user labels are requested. If they are, 
YESUSER writes up to seven user-supplied 
additional volume labels as records four 
through ten. Space is allocated consisting 
of a 4-byte key field and an 80-byte data 
field for the labels. Assuming that there 
are no additional labels requested, NOUSER 
determines if IPL text is requested. If it 
is, LOADA reads 3600 bytes following the 
IPLTXT card into a buffer area (or until an 
END card is read). For both the 2311 and 
2314, the IPL text is placed on track 1 of 
cylinder 0. 

If the IPL function is selected, records 
one and two are written on track zero as an 
IPL bootstrap program and a program to load 
the IPL initialization program. If the IPL 
function is not selected, record one is 
written as a program to set a wait state in 
the CPU in case the volume is loaded for 
execution. In either case, record two is 
written as an IPL bootstrap. Since record 
one will set the wait state, in a non-IPL 
situation there is no danger of executing 
record two. 

The user may, at his discretion, submit 
text cards for an IPL option, which is 
placed on cylinder 0, track 1, or he may 



HA 



RO 



R2 



R3 



Figure 1. Image of Track Zero 



R4 



Home 


Track 


iPL 




IPL 




Vnndard 


Additional 


Address 


Descriptor 


Record 




Booh 


trap 


v'atume 


Volume 




Record 


(or Durv 


^y) 






label 


Labels) 
{ Optional 



request the IPL option without supplying 
text cards. In the latter case, a special 
program (Startup Prelude) , which is used 
when the TSS/360 is first generated, is 
written on cylinder 0, track 1. This pro- 
gram is incorporated in DASDI. In either 
case, the user must supply the IPLTXT con- 
trol statement. 



CONSTR2 Routine 

After the information on track zero is 
constructed by CONSTR1 , CONSTR2 performs 
the necessary functions to write the track. 
WRTIPL writes the user-supplied IPL ini- 
tialization program, if requested. The IPL 
program is written on cylinder zero, track 
one. 

At this point the device type/ access 
method becomes important. With either the 
2311 or 2314, SAM format, the program sets 
the format for the VTOC at FMTVTOC. If it 
is a 2311/2314 VAM 1 or VAM 2, control is 
passed to the ENTPOIT1 routine. The 2301 
is handled by a separate routine as it has 
special requirements for its format. 

FMTVTOC Routine 

FMTVTOC is entered by a branch instruc- 
tion from CONSTR2 to format SAM VTOC DSCBs . 
On entry, all general registers are saved. 
The following are immediately stored in the 
VTOC: 

• First alternate track and count 

• VTOC indicator 

• Device size 

• VTOC extents 

• Highest prime CCHHR address 

FMTVTOC then calculates the beginning 
CCHHR of the VTOC and the device type (2311 
or 2314 disk device) . Cylinder zero tracks 
are freed, and the VTOC is constructed. 

The EXTNT routine is entered to insert the 
VTOC extents. All data set extents are 
checked and the VTOC is written using 
WRTVTOC. 



W RTVTOC Routine 

WRTVTOC is entered by a branch statement 
to the WRTVTOC entry point. A loop is 
entered to build all CCWs and count fields 
necessary to write DSCBs constructed by 
FMTVTOC. After all DSCBs have been writ- 
ten, a string of 140-byte dummy DSCBs are 
written to pad the cylinder. 

Upon completion, control is passed to 
the end-of-job routine at EOJ. 

ENTPQIT1 Routine 

The routine is entered from CONSTR2 and 
i :.-; responsible for setting the format for 
the 2311/2 314 in a VAM 1 or VAM 2 409 6-byte 
page format as well as constructing the 
user-requested VTOC. If IPL is requested, 
page 1 is not available for use. However , 
if IPL text is not requested, page 1 
(starting on track 1) is available. As 
each track is processed, it must first be 
tested to see if it has successfully been 
surface-analyzed. ADTOLIST passes the 
address of a table, LI ST ARE A, which con- 
tains the addresses of those tracks that 
are defective. The VTOC location must be 
determined before the format is set. 

The format technique involves the use of 
chained commands in a five-track cyclic 
pattern. when processing pages in VAM 1 ot 
VAM format 2, which overflow, the first 
portion of the record is written using a 
write special count, key, and data command. 
The second portion of the overflow record 
is then written with the rest of the track. 
The second track is then verified. If both 
tracks are good the first portion of the 
record is rewritten using a write special 
count, key, and data to set the overflow 
bit in the flag byte of the count field. 
The overflow page is then verified for 
correct format. After the pattern is 
generated, the 4 096-byte records are placed 
on the device. Before completing the for- 
mat for the entire disk, control again goes 
to ADTOLIST, which now prints the adore: -.a:. 
of defective tracks with the continue/ 
terminate option. 

The VTOC (for VAM 1), which contains the 
available pages rather than relative track 
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addresses , is finalized and placed in the 
user-specified location. Dummy DSCBc are 
created to fill the entire cylinder. See 
Tables 4 and 5 for page/track relationship. 



VAM2301 Routine 

This specialized routine handles the 
patterning of the 2301 device in a modified 
VAM format. Within this context, page zero 
contains a bit map of the paging drum. The 
bit map uses the same format as the auxi- 
liary storage allocation table (ASAT) , but 
without the 16 byte ASAT header. The ASAT 
is described in System Control Blocks PLM . 



For all defective tracks noted during 
surface analysis or format processing, the 
pages associated with that track are made 
unavailable. Track zero, record one, con- 
tains a bit map consisting of 144 contigu- 
ous bytes with the first 100 bits repre- 
senting the pages of a slot. A zero bit 
indicates availability, a one bit unavaila- 
bility. For each defective track encoun- 
tered, a minimum of five pages is made 
unavailable (the four full-size pages and 
one overflow page) . 

See Table 6 for 2301 page/track 
relationship. 

The modified V7AM format begins on track 
zero, record two, and consists of odd- 
numbered records of 4096 bytes and even- 
numbered records of 246 bytes (dummy rec- 
ords). On even-numbered tracks, there are 
four page-sized records interspersed with 
four dummy records. The last record is a 
half-page and overflows to the next track. 
The odd-numbered tracks begin with the 
corresponding latter half of the overflow 



Table 4. 2314 Page/Track Relationship 



Track 



Bytes/Record 



4,096 
2,920 
1,176 
4,096 
1,592 
2,504 
4,096 

207 
3,889 
3,136 

960 
4,096 



| Page No. j 
4- 



(1,187 unused | 
bytes on j 
track 4) 



J. L i 

(Note: This pattern is repeated for 20 
| tracks, 32 pages per cylinder. 

L 



Table 5. 2311 Page/Track Relationship 

r ^ r 

j Track | Bytes/Record \ Page No. 






«5 f O £ Z} 




! 





471 









3,069 




1 


i 


1,027 




1 


1 


2,486 




1 


2 


1,610 




1 


2 


1,875 




1 


3 


2,221 




1 


3 


(1,234 


unus 


ed | 




bytes 


on 


1 




track 


4) 


1 




3,625 




1 


4 


471 






4 


3,069 




1 


5 


1,027 




1 


5 


2,486 




! 


6 


1,610 




1 


6 


1,875 




1 


7 


2,221 




1 


7 


(1,234 


unus 


ed| 




bytes 


on 


1 




track 


9) 


1 










J. 









pages (2048 bytes), and the rest of the 
track consists of interspersed dummy and 
page-size records. 



The routine communicates with ADTOLIST 
to properly accommodate defective tracks. 
Upon completing the format processing and 
the status of the bit map, the routine 
passes control to EOJ. 



DASDIPAT Routine 

This routine is called when a PAT Clear 
function is requested. DASDIPAT checks the 
volume label to determine if the disk is a 
2311 or a 2314; then reads the PAT page(c). 
It now removes all data set indications 
from the PAT, while leaving error pages 
flagged. The PAT is written back to the 
disk, and the job is terminated. Control 
is passed to PATWRITS. 



TERMINATION ROUTINES 



End-of-Job (EOJ) Routine 

The EOJ routine prints the end-of-job 
message using the PRNT routine; checks for 
the LASTCARD (if operating within a stacked 
job environment) ; writes tape EOF and 
rewinds the tape for SYSOUT tape (TAPEEOF 
routine); and places the CPU in a termina- 
ting wait state. 



10 



Table 



2301 Page/Track Relationship 



J 










| Track 


J Record 




[ Page | 


| No. 
j. 

i ° 


-+— 


No. 


( Bytes/Record 
I 4,096 


\ No. | 
-+ i 

t o | 


1 


1 ° 




2 


1 246 




1 o 




3 


| 4,096 


1 1 1 


1 o 




4 


| 246 




1 o 




5 


\ 4,0 9* 


i 2 | 


1 o 




6 


| 246 




1 ° 




7 


j 4,096 


1 3 | 


1 o 




8 


1 246 




i o 




9 


| 2,048 




( 1 




1 


| 2,04R 


1 4 1 


1 1 




2 


| 246 




1 1 




3 


| 4,096 


1 5 | 


i 1 




4 


| 246 




1 1 




5 


| 4,096 


1 6 1 


1 1 




6 


I 246 




1 1 




7 


| 4,096 


t 7 j 


i 1 




8 


| 246 




1 1 




9 


| 4,096 


i 8 | 


J_ 


Rou 




_JL_ 


X J 


GETALTYZ 


itine 







Control is passed to this routine from 
CLRSCAN upon encountering a GETALT control 
card. The volume label checking switch is 
tested and, if requested, control is passed 
to CKVOLLBL. 

If the track check "bypass" is not 
selected, track analysis on the user- 
specified track is performed. If the track 
is found to be operative, a message to that 
effect is printed (or displayed) and the 
next GETALT request is processed. 

If the track check bypass is selected, 
or if the track is found to be defective, 
control passes to ASGNALT (SAM format). 
This routine flags the given track as de- 
fective and assigns it an alternate (if it 
is a primary track) . If the defective 
track is an alternate, it is flagged as 
such; if the given alternate track has been 
assigned to the primary, an operative 
alternate is assigned to the primary. If 
the format is VAM 2, the PAT is read, de- 
fective pages are flagged, and the PAT is 
written. 

TRKPRNT Routine 

The TRKPRNT routine causes a message to 
be printed, stating the address of each de- 
fective track and its assigned alternate. 
Routine GETALT4 decrements field 6 of the 
VTOC to reflect the fact that one less 
alternate track is available, and incre- 
ments field five to point to the next 
available alternate track. 

Control is then given to A1TRTN which 
repeats the process for another user- 



specified GETALT request. If none exists, 
it encounters a valid END statement, 
initiates a normal end-of-job, and sets the 
CPU to the wait state. 



MESSAGE ROUTINES 



Messag e Output (PRNT) Routine 

PRNT is entered at the PRNT entry point 
to write a message to the UCBSYO-def ined 
message output device. On entry, registers 
are saved and SYSOUT is entered to print 
one line. On return from SYSOUT, registers 
are restored and return is made to the 
calling routine through register 9. 

I/O Error Print (IOPRNT) Routine 

When there is a hardware error, or a 
situation where intervention Is required, 
information from the UCB and the command 

code from the last I/O instruction is 
printed in addition to an error message. 
In these cases, IOPRNT is called. IOPRNT 
saves the channel-byte and unit- byte, the 
CSW. -status bytes, two sense bytes, and com- 
mand code. The I/O PRNT routine prints 
these bytes along with the error messages 
by going to OPPRNT (at OPPRN1) . 

* r i t e - 1- o- O pe rator ( WTO ) Rou tine 

WTO routine- is entered via a branch 
through register 15 to the OPPRNT entry 
point. WTO writes a message to the opera- 
tor when the MSG device is defined as a 
typewriter. 

On entry, register 1 contains the mes- 
sage length; register 2, the message 

address. WTO completes the OPRCCW and 
enters STARTIO with the addresses of UCbGPR 
and OPRCCW. 

On return from STARTIO, control is 
returned to the user via register 15. 

Err or Messages : Error messages are listed 
ln System Messages . 

Diagnostic Messages : Diagnostic messages 
appear in the following format: 

number (16-byte text) cuuxxssssyyyy 

where c is the channel of the device in 
error, uu is the unit, xx is the command 

code, ssss are the status bytes from th< 
channel status word, and yyyy are the sense 
by t es . 

Message texts are listed in System 
Messages . 
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Chart AA. DASDI Routine (Part 1 of 3) 



P/sGE O'JL 



* ENTRY 



START ? 



.* VALID *. » 



*»**C2***'»** 
->* ESBOa-HAIT 



*00t» 

* D1 *-> 

* * 
*♦♦» 

RBCARB 



*. LASrOBD ? .« 



* FKIST * 
-> LASTCARB «SG — 



.» £ME OB *. YES ,* P*T *. SC 

*. IPiTXT ? .* _->*. CLEAU .* — 

*. . ' *. 3 ELDEST . * 



BASBIPAT 



•.COHHAKB ?,* 



»***H1***»***»* 

* * 

* EBRQB-BAIT * 



PBOCESS CCKBAND* 



L ****** 



CI FAR FAT 



. »SEvDE»CE OB*. YHS * 
*» VALIDITY .* >* EhBOR-WAIT 



->» EOJ-HAIT * 



:°^: 



♦ 002* 

* D1» 



:°?r. 
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Chart AA. DASDI Routine (Part 2 of 3) 



:°2?: 






*002* 
* mi* 



GETH.TX V 

♦CKTOLLBL 002*1 



PAGE 00 2 



■( R K O H - » k\ T 



GETALT *. ?ES 



6¥P»SS *, NO 



'•BITE HA, BO 
CS ALT TfcKS 



IST08G * 



■ SITE HA.RO 
CD Cfilrt TBKS 



HE iliiS lE 
1 . *. 

HI *. 

BEaUEST ? l*~ - 



■ **+j%******** 






->*. SAN ? 



'""I 



CHECK TBJCX 
CONDITIO!* 



.». cf.tum 

Oil *. »»»[)'-,***»***»*»*' 

,»* TRACK **. NO * PRINT TRUCK » 

». ERROR ? . * — — -> GOOD BSG 



YES *INDIC»TE BRBOB 

» — __ ->* PAGES IN PAT 

1 i 



PROCESS 

ULTERSATB 
ASSIGNMENT 



PUT TEXT 1H 
s'JFPER - SET 
I PL RCD 6 CCW 



BCD 6 
LIST 



-> WRITF T?'< 



* B1 » 



->*, FCKMTYPE - 
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Chart AA. DASDI Routine (Part 3 of 3) 



•003* 
* B1* 



PAGC 003 



S2311 V 

»»***C1»»»*»* 

* SET OP 231 

* CONSTANTS 



**B1 ******** 



r*. I'RKS 

*. S'kOCESSBl, . * 

»*»♦ * »" M«J 

302* 
K1* 



F0EH»T TKACK 



nLAD VERIFY 



»***C2**»*****< 
SET UP VTCC OR 



,*. F2 »******** 
i*rf 1ST Eu.i .IS : 



->* SRliOfc-KAIT 



FOPIU'T TRUCK 



>EAD VFKTFY 



p-iifii, i .;:;r 
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SECTION 2; DUMP/RESTORE (DASDDR) PROGRAM - MODULE CEBDR 



The Dump/Restore (DASDDR) program, 
module CEBDR, dumps and restores data on 
direct-access volumes on IBM 2311 disk 
storage device, and 2314 direct-access 
storage facility. The data contents of the 
direct-access volume, except for the home 
address, can be dumped onto another IBM 
2311 or 2314 disk storage volume, or onto a 
magnetic tape, to be restored onto a 
direct-access volume that resides on the 
same type of device as the source volume. 
The volume onto which data is to be dumped 
or restored must have been initialized 
using the TSS/36 DASDI program (Section 
1) . DASDDR is useful for preparing trans- 
portable copies and backup copies cf 
direct-access volume contents. 

ATTRIBUTES ; DASDDR operates outside and in 
support of TSS/360 as a privileged, dis- 
abled, non-relocatable, non-reusable 
program. 

RESTRICTIONS : The following assumptions 
and restrictions apply: 

1. DASD contents always refer to the data 
content exclusive of the home address 
and track descriptor record count 
field. 

2. The 2311 or 2314 to be used for dump/ 
restore must have been previously 
initialized with home addresses and 
track descriptor records and, in the 
case of SAM format, have bad tracks 
flagged with alternates assigned. 

3. Partial 2311 or 2314 contents may be 
dumped/restored between contiguous 
track limits (SAM or VAM 1 only). 
However, the program makes no attempt 
to update the volume table of contents 
(VTOC) or provide pointers to data. 
Selection of a partial dump/restore 
places upon the user the responsibili- 
ty for any and all required updates. 

4. The program makes no provision to 
restore to a track address other than 
that from which the data contents were 
dumped. The restore must be to the 
same address limits used in dumping 
the original 2311 or 2314. The pro- 
gram safeguards this requirement by 
providing the restore limits required. 

HARDWARE CONFIGURATION REQUIREMENTS : The 
DASDDR program runs on a System/360 Model 
67 in non- relocatable PSW mode, or on any 
System/360 with sufficient main storage and 
required device configuration: 



Main Storage 

Program Input 
Device 



65,536 bytes 



2540, 2400 (9 track) 



Control Statement 2540, 2400 (9 track) 
Input Device 



Message Output 

Device 

other 



1403, 1052, 2400 
(9 track) 

2311 or 2314; or 2400 
(9 track) for 
intermediate storage 



PROGRAM OPERATION 

DUMPED DATA FORMAT (SAM OR VAM 1) 

The format of dumped data depends on the 
device configuration of the dump: 2311 to 
2311, 2314 to 2314, or either 2311 or 2314 
to tape. 

2311 to 2311 Dump 

Data from the input 2311 is copied, 
record for record, and track for track. 
For this reason, a restore from 2311 to 
2311 is not provided, but can be effected 
by another dump. 

2314 to 2314 Dump 

Data from the input 2314 is copied, 

record for record, and track for track* 
For this reason a restore from 2314 to 2 314 
is not provided, but can be effected by 
another dump. 

2311 or 2314 to Tape 

The following records are written on 
tape for a 2311 or 2314 to tape dump (see 
Figure 2) : 

1. A limits record is written as the 
first record (following any labels) on 
each volume of tape. This record con- 
tains the addresses of the first track 
dumped, the last track dumped, and the 
first track dumped on this volume of 
tape. 

2. A bit map record (see BLDMAP) is writ- 
ten next so that bad pages on the 
original device can be recovered when 
this tape is restored. (This record 

• is used only for a VAM 1 format 
device. ) 
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2311 or 2314 
Disk Storage 



Home 
Address 



R0 



R3 



Main Storage 
DTALENG DTABUFF 




Figure 2. Dumping and Restoring a Direct-Access Track (SAM and VAM 1) 



3. A control record is written for each 
track dumped, immediately preceding 
the data dumped from the track. The 
control record contains a channel pro- 
gram to be used by a subsequent 
restore to write one track. 



2. The Page Assignment Table (PAT) of the 
f rom-device. 

3. IPL, Label, and IPLTXT records. 

4. Pages in use (as indicated by the 

PAT) . 



DUMPED DATA FORMAT (VAM 2) 



2311 to 2311, 2311 to 2314, 2314 to 2311 
Dump 

The following data are dumped to the 

output disk storage device? 

1. IPL records 

2. Label records 

3. IPLTXT records 

4. All pages in use (as indicated by the 
Page Assignment Table) 

A restore from disk to disk is provided 
only by another dump. 

2311 or 2314 to Tape 

The following records are written on 
tape (see Figure 3). 

la. Unlabeled tapes -- a limits record is 
written as the first record on each 
tape volume. 

lb. Labeled tapes — TSS standard labels 
are written, following the volume 
label, on each tape volume. 



PROGRAM FLOW 

When the dump/restore program receives 
control after IPL, base registers 11, 12, 
13, and 14 are initialized to hexadecimal 
1000, 2000, 3000, and 4000, respectively. 
Then the SEREP flags are set in the old 
machine check PSW, and the wait state is 
entered until SYSIN is defined through 
either CKINPUT or ATTN routines. All I/O 
operations are controlled through the DASDR 
I/O supervisory routines, explained at the 
end of this section. 

The dump/restore program accomplishes 
its purposes through the following routines 
summarized in Table 7 and Chart BB. 



INITIALIZATION ROUTINES 



Start Routine 

START receives control after completion 
of IPL, and initializes base registers 11, 
12, 13, and 14 to hexadecimal 1000, 2000, 
3000, and 4000 respectively. Dump/Restore 
PSWs are established and the SEREP flags in 
the old machine check PSW are set to hexa- 
decimal decimal * FF*. The program then 
enters a wait state to allow CKINPUT or 
ATTN to define the SYSIN device. 
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Unlabeled Tape 



u 



E ^ Limirs 



K/1 Record 



^ PAT 

^ 



Vk 
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V/ IPL1 

E2 



I 



// 



& 



IPL2 



(Disk) 

Volume 
Label 



^ 
^ 



^ 



!PL 
Text 



<A 



Dumped 
Page 



1 



Dumped 
Page 






ta 



M 



Lirn i fs 

Record 



Labeled Tape 



m 



(Tape) 

Volume 
Lobe! 



(TSS) 

Header 

Label 

1 



v - 

(TSS) 
Header 
Label \/, 
2 



<>' 



^ 



PAT 



IPL1 



Y /, 



ipl; 



(Disk) 



• Figure 3. VAM 2 Dump Tape Format 
CKINPUT Routine 

CKINPUT receives control when the opera- 
tor defines SYSIN through the console. 
Control is passed via an external interrupt 
generated by the interrupt key. CKINPUT 
first checks the entered code to verify 
device type (2540, 2400, or 1402). 

If SYSIN is a 2540 or 2400, the SYSIN 
UCB (UCBSYI) is modified and the channel 
number is tested. If the channel number is 
greater than 6, an error results. If the 
channel number is valid, the SYSIN address 
is placed in UCBSYI. The system is set to 
receive interrupts and control is passed to 
CLRSCAN. If SYSIN is defined as a 140 2, 
start is reentered for a request. 

An error message results when an invalid 
SYSIN devi.ce is entered. The system enters 
a wait state until another device type is 
entered. 

ATTN Routine 

If the operator defines the input device 
through the typewriter, ATTN assumes con- 
trol via an I/O interruption. ATTN sets up 
a UCBOPR and calls the write-to-operator 
routine at location OPPRNT, which, in turn, 
calls the STARTIO routine to print a mes- 
sage to the operator instructing him to 
type in the input device. The routine 
assuir.es control again, and reads the input 
device from the typewriter, converting 
lower case characters to upper case charac- 
ters, if necessary. It then calls DEVLUP, 
which scans the DEVTAB table to ascertain 
that the input device is valid. If it is, 
the UCBSYI is then filled in with the 
device address which is checked for validi- 
ty, and control is passed to CLRSCAN, li- 
the input device is not valid, an error 
message is printed. 



CONTROL STATEMENT ANALYSIS ROUTINES 

CLRSCAN Routine 

CLRSCAN analyzes control statements, 
checks them for sequence, pri .ts them on 
the MSG device, and sets switches. When 
the END statement is encountered, all out- 
standing requests made on control state- 
ments are honored. 



IPLTXT 




As each of the required and optional 
keyword parameters is encountered, switches 
are initialized for future use throughout 
the program. 



RDCARD is used to identify fields in 
statements and to read the next statement, 
when necessary. 



The entry point to this routine is 
CLRSCAN. Housekeeping functions are first 

performed on program switches and buffer- 
areas required by the program. This rou- 
tine then links to the control cai d scan 
routine at RDCARD. RDCARD returns a point- 
er to a field, and the length of the field, 
in registers REG1 and REG2, respectively, 
and an indication of the field type in 
location SWITCHRD. SWITCHRD is a 1-byt- 
switch with the following settings; 



Bit 




Value 

1 


Meaning 

Control statement error 


1 


1 


Bypass 


2 




Not Used 



= First entry; 

1 = subsequent entry 

Command found 

Keyword found 

Parameter found 

Right parenthesis found 



Validity checks are then performed on 
the scanned data. If an error is detected 
in the input data, an attempt is made to 
print a message on the defined message out- 
put device. If the message output device 
is not defined, an attempt is made to issue 
the message, using the Write to Operator 
routine. If neither device is defined, a 
wait state is entered. If the message is 
successfully issued, a wait state is 
entered, and the program must be reinitia- 
ted, and the corrected statement submitted. 

At completion of the control stntr. emenr 
analysis, control is given to the dump/ 
restore program at START1. 
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Table 7. DASDDR Routines (Part 1 of 3) 

j Type j Naine J Function | 

i- j. i ., 

| Initialization (START (Initializes base registers, and sets SEREP flags. j 

| Routines j | j 

| |. + ^ 

( (CKINPUT | Checks operator-entered code, when input device is defined j 
| | | through the console. j 

| j. _ + i 

( | ATTN (Checks operator-entered code, when input device is defined | 

J (through typewriter. j 



l_ 

J Control 
(Statement 
(Analysis 
(Routine 

I- 

(Processing 

(Routines 

I 

i 



+ + ^ 

(CLRSCAN (Performs control statement analysis, and housekeeping | 
( (functions on program switches and buffer areas. } 

I I t 

I I 

+ ^ 

START1 (Sets tape switches and increments the end address. | 

I ! I 

t .| ^ 

JBEG1 (Restores and loads addresses, and compares to and ( 

( |from-device UCBs. j 

j. ^ ^ 

(HAVEADDR (Builds CNTRLBUF. j 

(TOTAPE (Sets tape switch and links to STARTIO to rewind the tape. | 
| (Verifies density and format. ( 

j. + ^ 

(TOFM2311 (Checks volume label. | 

JFRMTAPE (Reads beginning and end addresses. Checks format. | 

| CKVOLLBL (Obtains and checks volume label, and checks for VAM or j 
( (SAM format. j 

f + -I 

(BLDMAP (Builds bit map and analyzes VTOC extents and data set control) 
} (blocks. j 

j. + ., 

(Builds a list of Read Count CCWs to read maximum number of j 
(records in this device. j 

| Increments track address, after RSTRTAPE, to test EOJ. j 

.x — -| 

(Verifies previous read count. j 

(Converts read count CCWs to read CKD. j 

.x __ H 

(Writes length fields in tape-write CCWs. j 

. + _-„— H 

(Change DASD CCWs to perform a write operation. ( 

.x _ H 

(Executes a converted channel program during a future restore, j 
| (if dump is 2311 or 2314 to tape. j 

j. x -I 

|DMPDTA | Checks to see if the record to be written is noise. j 

j. + H 

(PUTMAP | Prints proper bit map on tape for 2311 or 2314. \ 

(._ x . _ H 

( RSTRTAPE | Reads the control record and the record following it to i 
| (restore data from tape. I 

(MQDTKADT (Increments track address after a Read operation to test j 
( (for EOJ. | 

j. x A 

(WRTDISK (Completes relocation on overflow from bad track and prevents | 
j (overlaying pages used for relocation. j 






| BUILDCCW 
I 

( MODTKADF 
j. 

(ANALSENS 

| CNGRDCKD 
J 

j PREPRWRT 

j TSTWRTSP 

H 

(DMPDASD 
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Table 7. DASDDR Routines (Part 2 of 3) 



| Type | Name | 



Function 



Processing 
Routines 
( cont ' d. ) 



Checks whether SAM or VAM. If SAM, reads alternate track for 
defective primary on a RESTORE. 

BADPAGE | Interrogates the bit map to see if the defective page is 
available. 

RLOCAT | Relocates a data page for bad track on the to- device. 






|. 

EOJA 



WRTDISKY 






CKALT 



CKALT1 

GETCCW 



-+ 



ENDREEL 
E0J1 



ENDOFJOB 
EOJAA 



DADSM 
RBLDDSCB 



CNVRELPG 
CLRERPG 



VAM2REST 

|. 

RELOCATE 

h 

V2UNEXCP 



I- 

V2WRTCHK 



ENDOFPAT 



Executes channel program by writing one track onto 2311 or 
2314 for 2311-2311 or 2314-2314 dump or a restore. 



I 

■H 

H 
CHTOSKP (Computes length of primary and duplicate CCW lists 

WRTCHECK [Reads back the track just written into a second buffer, and 
compares the contents of the two buffers to ensure a 
successful write. 

CHANGCYL [Updates cylinder address 



Checks for a bad SAM format track; places alternate track 
address in CCHH format. 



Determines if last track written is bad (SAM format) . 



Writes data buffer record when end-of-tape. 



Writes trailer label on current to-volurne to insure that 
new volume is mounted. 

Branch to print EOJ message. Rewind tape. 






Prints end-of- job/reel/disk pack message. 






Given control at conclusion of an entire 2311-2311 or 
2314-2314 dump. Updates field six of VTOC DCSB for SAM, 



Overlays the extents with the extents shown in the bit map 
Updates DSCB, following page relocation. 



h 
I- 

f 

TAPEEOF 

I" 

VAM2DUMP 



H 
Routes exits at end of tape 

Dumps contents of a VAM 2 disk to tape or disk 



Converts a relative page number to cylinder, track, and 
record number. 



Clears error indicators, and updates PAT. 
Restores tape contents to a VAM 2 disk. 

Relocates page on a VAM 2 disk. 



Handles unit exceptions on tape for VAM 2 dump/restore 
operations. 



Compares read/write buffers to insure a successful write, 



Writes a control record, rewinds tape, and prints 
EOJ message. 

j. + . _ . 

jPATWRITE (Writes updated PAT on disk, and prints EOJ message. 
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Table 7. DASDDR Routines (Part 3 of 3) 

r T T . , _ 1 

| Type | Name | Function | 

(. + + _ ^ 

(Processing (TPDPLAB | For a dump, ensures tape has a TSS standard volume label J 
(Routines f (or is capable of being IPLd. | 

( (cont'd. ) J- + j 

| jRSTPCK j For a restore, ensures tape has TSS standard labels or a j 
| | (control record. | 

j. + + -j 

(I/O Routines (Data Input | Stores buffer address in channel command word, and sets a | 
| (Routine [read command. ( 

| | (SYS IN) | 1 

( j STARTIO (Controls all I/O operations performed by the DASDDR program, j 
j {. + . . H 

( | I/O Inter- | Examines and classifies I/O interrupts. J 

( j ruption | | 

J (Analysis j | 

[ | (CKCSW) j j 

(Message j PRNT (Writes messages using the message output device defined by j 
(Routines | (the MSG statement. j 

j } IOPRNT (Prints error message, and saves channel-, unit-, CCW-status, j 

j j (and two sense-bytes. j 

| j. + ^ 

| (OPPRNT (Writes messages to the operator when input device is a ( 

j | (typewriter. | 

L JL X J 



PROCESSING ROUTINES 



HAVEADDR Routine 



START1 Routine 

START1 sets the tape switch to 0, indi- 
cating no tape is involved in the program 
function. If a tape is involved, the 
switch is later set to 1. The end address, 
which is the last track of the disk for an 
entire dump/restore, is incremented by one 
so that all data of the desired area are 
dumped. This is handled for the from- 
device by CHANGCYL. 



BEG1 Routine 



HAVEADDR is entered from BEG1. The rou- 
tine enters information into the 8 -word 
control data record (CNTRLBUF) , as shown in 
Figure 4. Control is then given to the 
proper preliminary routine specified by 
BEG1 in register 5. 



TOTAPE Routine 

This routine assumes that the tape, in a 
tape dump, is positioned at the load point 
and that the begin and end addresses are 
available. 



BEG1 first restores the address returned 
by CHANGCYL via register 15 to ENDADR. 
Register 15 is then loaded with the address 
contained in BGNADR; the incrementing fac- 
tor is set to 8. Register 5, which links 
to the correct dump/restore routine, is 
loaded with the address of TOFM2 311, speci- 
fying a 2311-2311 or 231(4-2314 dump. The 
to- and from- device UCBs are then compared 
to see if they are for the same device 
type. If they are, control is given to 
HAVEADDR. If not, the SEQSW is tested to 
see if this is a dump request. If it is a 
dump request, register 5 is loaded with the 
address of TOTAPE and control is given to 
HAVEADDR. If it is not a dump, control is 
given to FRMTAPE. 



TOTAPE first assumes that the record is 
not noise. The tape switch is set on; 
STARTIO is entered to position the tape. 
The tape density is then verified. 



The routine reads the first tape- label. 
If this is a DASD loader card, RD LABELS i.s 
entered to bypass the remaining labels. If 
the first record is not a label, the VTOC 
area is cleared, and the format is veri- 
fied. SAM format is processed by TODMPDTA. 
VAM 1 format records are checked for a bit 
map. When none exists, PUTMAP is entered. 
If the format is VAM 2, control is given to 
VAM2DUMP. 

Exit is made to DMPSAM. 
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; l byte'- 


24 


v'TOC limih (8 bytes) 


-_J 



Note: VTOC limits supplied by BLDMAP routine. 



Figure 4. Entering Information Into 
CNTRLBUF 

TOFM2 3 11 Routine 

TOFM2311 is entered through register 5 
by HAVEADDR. The routine immediately gives 
control via register 5 to CKVOLLBL, to 
check the volume label. On return, regis- 
ter 5 is loaded with the address of 
WRTDISK, the routine which prepares to 
write the disk. Control is then given to 
BUILDCCW. 

FRMTAPE Routine 

On entry, this routine gives control 
immediately to CKVOLLBL, to check the 
volume label. On return, register 5 is 
loaded with the address of RSTRTAPE. A 
check is made to see that the tape is at 
load point. Then the labels are bypassed, 
and the beginning and end addresses are 
read. If this is not a restore tape, or if 
the restore tape specifies a format type 
(SAM, VAM 1, VAM 2) other than that speci- 
fied by the companion dump, an appropriate 
message is written and a wait state is 
entered. If the tape is correct, the rou- 
tine stores the beginning and end 
addresses, gets the relative beginning 
address, and recovers FULLDPSW to see if 
this is a restore of a full or partial 
dump. If the format is VAM 2, control is 
passed to VAM2DUMP. Otherwise, control is 
then passed to RSTRTAPE via register 5. 

CKVOLLBL Routine 

CKVOLLBL is entered by a BAL statement 
using register 5 for return. The routine 
links to STARTIO to get a volume label. If 
the label is not a system volume label, 
control is given to PRNT to print the in- 
valid VOLID statement. The linkage regis- 
ter is loaded with the address of WAITZ, 
which sets the CPU in a terminal wait 
state. 

A system volume label is checked to see 
if it agrees with the VOLID specified. If 
not, PRNT is called as before. When the 



valid system volume label agrees with the 
specified VOLID, STARTIO is called to read 
the VTOC, and alternate track information 
is saved (SAM and VAM 1>. If the format is 
VAM 1, BLDMAP is entered through the VAM 
entry point. If this is a VAM 2 dump, con- 
trol is passed to VAM2DUMP. Otherwise, 
return is made through register 5 to the- 
cal ling routine. 

BLDMAP Routine 

BLDMAP is entered through the VAM rou- 
tine which verifies that the request is for 
a complete dump. If this is not the case, 
VAM immediately returns control via regis- 
ter 5. 

When BLDMAP is entered, all registers 
are stored. STARTIO is then entered with 
the device address and CCW list to read the 
volume label. STARTIO is again entered to 
write the control record. 

On return from STARTIO, all VTOC and 
DSCB extents are analyzed in order to set- 
all pages in use on the f rom-device as 
unavailable. A bit map is constructed 
showing all pages initially available 
except : 

• Cylinder track — used for volume 
and user labels. 

•'Cylinder track 1 -- used for IPL 
text. 

•-Cylinder 199 -- used for error retry. 

• Entire extent of VTOC. 

• Areas used by other data sets. 

When completed, the bit map shows all 
available pages on the to-device. This map 
is maintained in core throughout the entire 
dump or restore operation. 

BLDMAP uses the following subroutines: 

• READDSCB — sets all pages within DSCBs 

as unavailable. 

• INIT2314 — converts the head number 
(HH) from the VTOC extents to the prop- 
er 2314 page number. 

Upon completion, exit is made to the 
calling routine via register 5. 

BUILDCCW Routine 

BUILDCCW is entered to build a list of 
read count CCWs to read the maximum number 
of records on the device. The routine 
loads registers 7 and 8 with the dummy read 
count CCW, places the address of the first 
CCW in registers 1 and 4 , and sets the 
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record address to 0. Register 4 is updated 
to the address of the last possible CCW for 
one track of the device. CCWs are stored 
in a loop until the content of register 1 
(starting address) equals the content of 
register *» (stopping address) . Control is 
passed to MQDTKADF. 



MQDTKADF Routine 

MODTKADF receives control from BUILDCCW 
to establish necessary addresses to read 
the count fields from the specified track. 

CHANGCYL is called to increment the CCHH 
to the current track. STARTIO is called to 
execute the read count CCWs constructed by 
BUILDCCW. 



DMPDASP Routi ne 

DMPDASD is entered to write the control 
field and CCW list from a direct-access 
device to a tape device. This routine 
simply places the proper parameters into 
registers 2 and 3, then links to STARTIO 
with the return address of DMPDTA in regis 
ter 9. 

DMPDTA Routine 

DMPDTA receives control from STARTIO 
following a DMPDASD operation. This rou- 
tine prepares the parameters to write the 
data field on tape. The count is incre- 
mented when noise is encountered. Control 
is passed to STARTIO with the address of 
BUILDCCW in the return register (register 
9). 



ANALSENS Routine 



PUTMAP Routine 



ANALSENS tests the previous read count. 
If the read was invalid, control is passed 
to CKALT; otherwise, control is passed to 
CNGRDCKD. 

CNGRDCKD Routine 

CNGRDCKD is entered from ANALSENS to 
change the read count CCWs. The last used 
read count CCW is determined and compared 
with the first. If only record exists, 
control is passed to PREPRWRT. Otherwise, 
the counts are used to specify the data 
length and the address fields in the read 
CKD CCWs built over the used read count 
CCWs. Data address fields are forced to 
doubleword boundaries. Control is passed 
to PREPRWRT. 

PREPRWRT Routine 

PREPRWRT calculates the length of the 
entire track image to be read and the CCW 
list to be used, and inserts these in the 
length fields of the tape-write CCWs. 
STARTIO is called to execute the read CKD 
CCWs constructed by CNGRDCKD. Control is 
passed to TSTWRTSP. 

TSTWRTSP Routine 

TSTWRTSP is entered at the TSTWRTSP 
entry point to change DASD CCWs to specify 
a write operation. The list of read CCWs 
is obtained and scanned. The data 
addresses in the duplicate part of this CCW 
list are changed to the relative addresses 
contained in an area called DTABUFCK. If a 
write special count, key, and data is 
necessary due to overflow, the last write 
CCW is changed to that format. Instead of 
write count, key, and data, the last CCW in 
the original chain becomes a write-record 
zero. On exit, control is passed to the 
specified write routine through register 5. 



PUTMAP is entered to print the bit map 
on tape. The device is determined (2311 or 
2314), and the proper bit map is indicated. 
Control is passed to STARTIO with the 
address of BUILDCCW in the return register 
(register 9) . 

RSTRTAPE Routine 

RSTRTAPE is entered to read the control 
record (CCW list) and following data record 
(track image) to restore data from a tape 
device. The control field is first read, 
using STARTIO, and a switch is set to indi- 
cate whether a restore from tape, or a dump 
from disk is requested. 

On return from STARTIO, the write-check 
switch (WRCHEKSW) is tested. If off, con- 
trol is passed to CHTOSKP and returned to 

RSTRTAP2. If the switch is on, the 

instruction sequence continues at RSTRTAP2. 

RSTRTAP2 prepares the parameter regis- 
ters (2 and 3) to read the data field. 
Control is passed to STARTIO with a return 
indicated to MODTKADT. 

MODTKADT Routine 

MODTKADT increments the track address 
after the RSTRTAPE read operation to test 
for end-of-job (EOJ). At EOJ, control is 
passed to EOJl. Otherwise, control is 
passed to CNGCYLT with a specified return 
to WRTDISK. 

WRTDISK Routine 

WRTDISK tests AMSW and, for SAM, give-..; 
control to WRTDISKY. OVFLPGSW is tested to 
determine whether a page overflowing from 
the previous track is being relocated. If 
so, PRNPG2 is called to finish the reloca- 
tion. The relocated list is searched to 
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determine whether any relocations have been 
made to this track. If not, control goes 
to WRTDISKX for housekeeping, and then to 
WRTDISKY. If the track has received relo- 
cations, each record is tested, and for 
those which are safe, the data field, only, 
is written in place. At completion, con- 
trol goes to CKALT1B which continues the 
job at the next track. 



WRTDISKY Routine 

WRTDISKY establishes the parameters used 
to write to a disk device. If the write- 
check switch is off, control is passed to 
CHTOSKP, with a return to WRTDISK1 in the 
WRTDISK program. Otherwise, the instruc- 
tion sequence continues at the WRTDISK1 
return point. STARTIO is entered to write 
to the disk device; the return register 
points to the CKALT1 routine. 



CHTOSKP Routine 



CKALT Routine 

CKALT checks for a bad track on a SAM 
format read (DUMP) device, places the al- 
ternate track address in CCHH form, and 
returns for another read try. 

CKALT is entered by a branch statement 
to the CKALT entry point. This routine 
immediately tests for VAM 1 format. VAM 1 
format causes a branch to the BADPAGE rou- 
tine at RDBDPG. Otherwise, the bad track 
switch is interrogated. If the switch is 
off, indicating no bad track, the job i:-. 
terminated with the proper error message. 
If the track is bad, normal instruction 
sequence is followed. 

The home address and record are read, 
using STARTIO, and it is determined whet hex 
the track is an alternate. If so, control 
is passed to CNGRDCKD to build CCWs for a 
read count, key, and data. Otherwise, an 
alternate track is found and CNGRDCKD is 
entered as before. 



This routine computes the length of both 
primary and duplicate CCW lists; it also 
sets the skip bit on in all cews in the 
duplicate list. At completion, return is 
made through register 9. 



WRTCHECK Routine 

WRTCHECK is entered with a branch-and- 
link if write-checking is requested follow- 
ing a write operation to a direct-access 
device. On entry, registers are saved,* 
register 9 contains the return address. 

This routine compares the contents of 
two buffer areas; 

• The buffer from which a track was 
written. 

• The buffer into which that track was 
read, immediately following the write 
operation. 

If the two buffers contain equal con- 
tents, control is passed to WRTDISK. 
Otherwise, the compare is retried a maximum 
of ten times. If the equal compare is not 
found, the job is terminated with an error 
message; the wait state is entered. 

CHANGCYL Routine 

CHANGCYL is entered by a BAL statement 
with the return address in register 9. 
Register 15 contains the current track 
address in binary, and is incremented by 

one. For the last track in the cylinder, 
the address is updated to reflect track 
zero of the next cylinder. Return is made 
using register 9. 



CKALT1 Routine 

CKALT1 checks for a bad track on a SAM 
format write (RESTORE). The routine is 
entered. at the CKALTl entry point supplied 
to the calling routine in register 9. 

CKALTl first determines whether there is 
a bad track condition. If so, control goes 
to GET CCW. Otherwise, switches are reini- 
tialized, WRTCHECK is called if write- 
checking is requested, and the appropriate 
exit is made. 

GETCCW Routine 

GETCCW is entered by a branch statement 
from CKALTl when a bad track condition 
occurs. On entry, the format is tested. 
If VAM 1, control is passed to BADPAGE. On 

the first pass, the home address and record 
of the bad track are read. Messages 
identifying the bad track and the alternate 
tracks are written. The alternate track is 
written using a seek CCW, with the alter- 
nate CCHH at the data address, chained to 
the search CCW of the original list. 
Return from STARTIO is specified as CKALTl , 
indicating that the alternate has been 
written. CKALT1A returns control to the 
mainline program. 

On exit, STARTIO is given control witn a 
return indicated, in register 9, to CKALTl. 

BADPAGE Routine 

BADPAGE is entered to attempt to recover 

an error if a bad track is found in a VAM 1 
read or write. BADPAGE is entered at 
RDBDPG for a read, and BADPAGE for a write. 
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The track address is stored in DTABUFF, 
and device type is determined. A 2314 
error is handled by the BDPG 2314 routine. 
BITMAP is interrogated to see whether the 
defective page is available. In a write 
error on an available page, the page is 
made unavailable and control is passed to 
TRYAGAIN to determine whether there are 
more pages on the track to be processed. 
No data has been lost. For a read error in 
an available page, DASDI (a Dump/Restore 
routine within CEBDR, not CERDI) is called 
to supply a dummy track which is written to 
preserve VAM 1 format. Normal instruction 
sequence is followed. 

If the page is unavailable, it is tested 
to see if it is part of the VTOC. If it 
is, the job is terminated due to loss of 
control data. For a data page, control 
goes to RLOCAT to relocate the page in case 
of write error. On a read, RLOCAT immedi- 
ately gives control to VTOCOK and subse- 
quent BADPAGE routines which advise the 
operator that the page will be lost and 
give him an abort-or-continue option. If 
the job continues, data on the page is lost 
and DASDI is given control. 

Routines used by BADPAGE: 

PGAVAIL — determines availability of the 
page 

VTOCCK — terminates when VTOC is lost 



is written. RDPTI obtains the first part 
of a record overflowing to the bad track. 

BLDNtfPG retrieves the new location of 
the page from PGLST and converts it to 

CCHHR format. If the relocation is to an 
unrestored track, the track and record are 
recorded in RLOCL. If no other relocations 
have yet been made to the track, CALDASDI 
is called to format the track to assure VAM 
format. After the above, and if the relo- 
cation is to an already restored track, 
write data ccws are constructed and 
executed to put the record on the disk. If 
the relocation is to two tracks (always for 
2311, usually for 2314), a similar proce- 
dure is executed for the second track. 

ENDREEL Routine 

ENDREEL is entered upon encountering a 
unit exception on a multiple tape system. 
This routine is entered by a branch 
instruction to the ENDREEL entry point. 

ENDREEL verifies that the tape is 
finished. If finished, the data buffer is 
written; STARTIO is entered with a return 
specified, in register 9, to ENDREEL. 
Otherwise, the routine writes the data 
buffer record, establishes switches to 
determine whether all tapes have been 
restored, and passes control to E0J1 . 

E0J1 Routine 



TRYAGAIN (and AGAIN14) — checks whether 

another page is affected by the 
bad track 

VTOCOK — counts lost page and saves its 
number 

PRTMSG — writes messages to operator 
about lost page(s) and goes 
into wait state 

COMEBACK — fields external interrupt when 
operator signals tnat job is to 
continue. 

RLOCAT 

RLOCAT relocates a data page when a bad 
track on the to-device is encountered. 

SRCHMAP searches BITMAP to find an 
available page to receive the relocation, 
and stores the old and new page numbers in 
PGLST. If no page is found, or if no space 
remains on PGLST, VTOCOK is given control. 

RBLDPG determines the position on the 
track of the page and reconstructs the page 
in its entirety in PAGBF. If it overflows 
to the next track, PREPOVF sets OVFLPGSW as 
a signal to WRTDISK that the relocation 
should be completed before the next track 



E0J1 is entered at end-of- volume on 
tape. This routine writes trailer labels 
on the current to- volume, and passes con- 
trol to TOTAPE to insure that the new 
volume is mounted. 

EOJA Routine 

EOJA enters ENDOFJOB to print the end of 
job message. STARTIO is then given control 
to rewind the tape. On return, a branch is 
made, tnrough register 5, to the proper 
wait routine. 

ENDOFJOB Routine 

ENDOFJOB prints end-of- job, or end of 
reel/disk pack. The routine then: stores 
beginning, end, and relative beginning 
addresses; sets the read protect switch, 

and determines the device type. If tape is 
used, it is rewound by EOJA. Otherwise, 
exit is made through register b to the 
proper routine. 

EOJAA Routine 

EOJAA is given control at the conclusion 
of an entire 2311-2311 or 2314-2314 dump. 
If the disk is in SAM format, EOJAA updates 
field 6 of the VTOC DSCB to reflect any al- 
ternate track assignments necessitated dur- 
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ing the dump. The CPU enters a wait state, 
and the job terminates. If the disk is in 
VAM 1 format, control is given to DADSM. 



EOJAA is also given control after a 
restore. For a SAM-f ormatted disk, it 
updates field 6 of the VTOC DSCB to reflect 
any alternate track assignments necessi- 
tated during the entire restore. For a VAM 
1-formatted disk, control is given to 
DADSM. No update feature is provided for 
either format after a partial restore. 



DADSM Routine 

The DADSM DSCBs are read into SAVEVTOC 
from the to-device. The extents are over- 
laid with the proper extents as shown in 
the bit map. 

If more DADSM DSCBs are needed than were 
on the from-device, an unused DSCB is found 
in the VTOC and this new DSCB overlays the 
dummy DSCB and is chained to trie previous 
DADSM DSCB. 

When all extents are placed in the DADSM 
DSCBs, any unused extent fields are cleared 
and the DSCBs are put back on the to- 
device. After the DSCBs are written on the 
to-device, control is passed to RBLDDSCB. 



V AM2DUMP Routin e 

VAM2DUMP is entered from TOTAPL for «. 
VAM 2 dump to tape,- from CKVOLLBL for a VAM 
2 dump to disk; and from FRMTAPE for a VAM 
2 restore from tape. Upon entry, it is 
determined whether this is the first tape 
in a tape operation. If not, control is 
passed to the proper Dump/Restore routine. 
Control is passed to VAM2REST for a restore 
operation. When a dump to tape is 
requested, the control record is written, 
the from-device PAT is read, and control is 
passed to CLRERPG to resolve relocation 
entries and remove error pages. For a disk 
to disk dump, CLRERPG reads the to-device 
PAT to determine those pages in error. At 
this point, in a dump to tape, the PAT is 
written. The IPL, volume label, user 
labels, and IPLTXT records are read in rind 
written out for a dump to tape or disk. 
Data and DSCB pages are also read in and 
written out. If a page is marked as an 
error page on the from-device, and has n 
relocation entry, the relocated page is 
written in the original page position. For 
an error page on the to-device (on a disk 
to disk dump) , or if a track condition 
check is detected on a write to disk r con- 
trol is passed to RELOCATE to relocate the 
page and to build a relocation entry. When 
all pages are dumped, control is given to 
the ENDOFPAT routine. 



RBLDDSCB Routine 



CNVRELPG Routine 



If pages have been relocated in a full 
VAM 1 dump or restore, the format-A and -B 
DSCBs must be updated to reflect the relo- 
cations. The extents of each data set are 
searched for relocated pages. The format-A 
DSCB is searched, then chained forma t-B 
DSCBs are searched, to the end of the 
chain. If relocated pages are found, the 
extents are updated, with any new ones 
placed at the end of the chain. If more 
DSCBs are needed, they are obtained and 
chained. 



CNVRELPG is entered by a branch-and- 1 ink 
instruction, with return indicated via 
REG5. Upon entry, REG2 contains the 
address of the appropriate UCB which is 
used to determine the device type. REG4 
contains the relative page number. This 
routine computes the cylinder, track, and 
record number, from a relative page number, 
for VAM 2 formatted direct access devices. 
The cylinder, track, and record number are 
stored at CCHH. 



Changed DSCBs are written out when com- 
pleted. When the last relocated page is 
found, the end of job message is printed 
and the job is terminated. 



TAPEEOF Routine 

TAPEEOF routes EOF exits at the end of a 
tape. At end-of-tape, in a dump program, 
control is passed to ENDREEL. In a restore 
program, the EOJ message is prepared with 
exit to EOJAA. If another tape remains, 
PREWAIT1 rewinds the tape and requests 
another tape. When the tape is mounted, 
the external interruption passes control to 
FIXEX which branches to the mainline 
program. 



CLRERPG Routi ne 

CLRERPG is entered from VAM2REST. For; ,-x 
dump operation, this routine resolves re- lo- 
cation entries and removes error pages, in 
the PAT. On a disk to disk dump, or on a 
restore, the to-device PAT is read to 
determine those pages in error. Error 
pages not in use on the from-device PAT are 
marked as error pages? those in use are 
listed in ERPGLST, which is subsequently 
used by CHKERR. If the operation is n '/ >] i 
to 231*4 restore or dump, the PAT is 
expanded to two pages. On exit, control is 
returned to the appropriate Dump/Restor* 
routine. 
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VAM2REST Routine 



V2WRTCHK Routine 



VAM2REST is entered, during a restore 
operation, by a branch instruction from 
VAM2DUMP. The routine restores a tape 
which was dumped in VAM 2 format to a 
direct access device. On entry, the PAT is 
read from tape. Control is then passed to 
CLRERPG, which reads the to-device PAT to 
find error pages. The IPL, label, and 
IPLTXT records are read from the tape, and 
written to the disk. Pages are then read 
from tape to disk. If there is an error 
page on the to-device, or if a track condi- 
tion check is detected, control is passed 
to RELOCATE to relocate the page, build a 
relocation entry, and update the relocation 
control entry. When all pages are 
restored, control is passed to PATWRITE to 
write the updated PAT. 



RELOCATE Routine 

This routine, used to relocate pages on 
a VAM 2 formatted direct access device, is 
entered: if a page to be written to a disk 
is marked as an error page in the PAT; if a 
track condition check occurs while attempt- 
ing to write to a disk; or, if the PAT has 
been expanded by going from a 2311 to a 
2314. If the write operation is for an 
IPL, label, or IPLTXT record, the job is 
terminated, and a message is issued. When 
an error occurs on a page record, RELOCATE 
searches the PAT for an available page, 
writes the original page to that page, 
builds a relocation entry, and updates the 
relocation control entry. If there are 96 
previous relocation entries, or if there 
are no available pages, the operator is 
given the choice of aborting the job, or 
continuing with that page lost. For a PAT 
page, no relocation entry is built, but the 
volume label pointer to the PAT is updated. 
For a 2314 PAT page, both PAT pages are 
relocated. If there are no available pages 
for a PAT relocation, a message is issued 
and the job is terminated. 



V2WRTCHK is entered immediately after 
execution of a VAM 2 write operation to a 
driect access device, if write checking is 
requested. This routine compares the con- 
tents of the buffer from which a record was 
written, with the contents of a buffer into 
which the same record was immediately read 
back after the write. If the contents do 
not match, the operation is re-executed and 
the buffers again compared. If the buffer 
contents do not natch after ten attempts, 
the program is terminated, and a message 
issued. 

VAM 2 EOF Routines 

ENDOFPAT - This routine is entereci on a 
dump to tape, when all used pages have been 
dumped. ENDOFPAT writes a tape mark, an 
end-of-job control record for a subsequent 
restore, and another tape mark. It rewinds 
the tape, prints an end-of-job message, and 
terminates. 

PATWRITE - This routine is entered on a 
disk to disk dump when all used page:; have 
been dumped, PATWRITE is also entereci on ,-i 
restore, when a control record is rend 
indicating that all pages have been 
restored. PATWRITE writes out the new PAT, 
rewinds any tapes used in the operation, 
prints the end-of-job message, and 
terminates. 



DASDDR I/O SUPERVISOR ROUTINES 

The DASDDR I/O supervisory routines pro- 
vide these functions: 

1. Initialization and termination. 

2. I/O processing: control, interruption 
processing, error handling. 

3. Message generation. 
SYSIN Routine 



V2UNEXCP Routine 

This routine is entered upon receiving a 
unit exception from a VAM 2 tape operation. 
On a dump, it writes a tape mark, a multi- 
reel control record, and another tape mark. 
It then prints the mount tape message and 
returns to the dump routine after receiving 
an external interruption. On a restore, 
the routine reads the control record to see 
if this is end-of-job. If so, control is 
passed to PATWRITE. Otherwise, V2UNEXCP 
prints the mount tape message and returns 
to the restore routine after receiving an 
external interruption. 



SYSIN prepares a read CCW using the 
buffer passed in REG2, and calls STARTIO. 
Return is through REGIS. 

STARTIO Routine 

This routine controls all I/O operations 
performed by the DASDDR program. It is 
entered at STARTIO, via REG9. REG 2 con- 
tains the address of the appropriate UCB. 
REG3 contains the address of the CCW. The 
device address is loaded into REG4 from the 
UCB. All pending interruptions are ser- 
viced at this point. An SIO instruction is 
issued until the command is accepted, at 
which time the TIO instruction is issued 
repeatedly until the unit is not busy. If 
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the unit is unavailable, tbe wait state is 
entered, and the program is terminated. 
Control is then given to the I/O interrup- 
tion analysis routine at location CKCSW. 

CKCSW Routine 

All I/O interruptions are serviced by 
this routine. REG2 contains the address of 
the appropriate UCB for the device which 
caused the interruption. This routine 
examines the nature of the I/O interrup- 
tions and classifies them into any one of 
six types of interruptions. The type of 
interruption is determined by scanning the 
status portion of the CSW. 



MESSAGE ROUTINES 

Message Output (PRNT) Routine 

PRNT is entered at SYSODT. This routine 
writes messages using the message output 
device defined by UCBSYO. (The MSG state- 
ment stored the device in UCBSYO.) Regis- 
ter GR2 contains the message address. The 
appropriate device CCW containing the 
address of the message is constructed. 
Pointers to the UCBSYO and SYQCCW, respec- 
tively, are stored in registers REG2 and 
REG3. These parameters are then passed to 
the STARTIO routine where the messages are 
printed. On return, the PRNT returns to 
the calling routine. 

Within the I/O package, SYSOUT is always 
called by the PRNT routine. This routine, 
called by a BAL REG9 r PRNT instruction, 
enters SYSOUT with tbe address of the mes- 
sage print buffer in REG 2. SYSOUT returns 
control to the PRNT routine via REG15. 
PRNT, in turn, returns to the calling pro- 
gram through REG9 . 



I/O Error Print (IOPRNT) Routine 

When there is a system error or a situa- 
tion where intervention is required, infor- 
mation from tbe UCB plus the command code 
from the last I/O instruction must be 
printed out together with an error message. 
In these cases, IOPRNT is called. IOPRNT 
extracts the necessary information, unpacks 
and translates it, and moves it into the 
input buffer, and then goes to PRNT. 

Write-to-Operator (WTO) ' Routine 

This routine writes messages to tbe 
operator only -if the input device has been 
defined as a typewriter (UCBOPR) . REG1 
contains the length of the message; REG2, 
the address of the message. The OPRCCW is 
filled in accordingly. Control passes to 
STARTIO with pointers to UCBOPR and OPRCCW 
where a message will be printed on the 
typewriter. Control returns to the calling 
routine through register 15. 

Error Messages 

Error messages are listed in System 
Messages . 

Diagnostic Messages 

Diagnostic messages appear in the fol- 
lowing format; 

number (16-byte text) cuuxxssssyyyy 

where c is the channel of the device in 

error, uu is the unit, xx is the command 
code, ssss are the status bytes from the 

channel status word, and yyyy are the sense 
bytes. 

Message texts are listed in System 
Messages . 
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Chart BB. DUMP- RESTORE Routine (Part 1 of 5) 



START 

**»*A1 ***»»*» 
* 
♦ CEBDRC 



►Bl» 



SET UP PSWS * 



.♦CHAN NOS OP*. HO 

« . INPUT DEVICE . * ~i 

» . CORRECT . » 



>*. 



#**BM**»»****» 
PRINT ERROR 



HA IT STATE 



CLEAR WORK 

AREA AND 

SWITCHES 

» * 



TOSCAN V 

*RDCARD 00101* 



*#**♦♦♦»♦#*#*#*#♦ 



CHECK VOLUME 

LEVEL WITH 
VOLUME 



PRIWT JOB 

STATEMENT IF 

NOT DONE 



PRINT CURRENT 
CONTROL 
STATEMENT » 



PRINT 

SEQUENCE 
ERROR 



» DETERMINE IP 

> TAPE HAS STD 

> TSS LABELS 



». VA*f 2 ? 



»0Q8« 
• 51 • 



WAIT STATE 



SET 

SEQUENCE 

SWITCH 



* ». SCANERR*' 
*. NO ♦ 

KEYWORD ,* >» B2 



***»*J1*»«**»** 



• READ COUNT, * 
< key and DATA < 



WRITE VDRL OR 
BITMAP IF TO 

TAPE * 



WRITE CKD AND 
BUFFER ON TO 
DEVICE ♦ 



WRITE •. NO .* MORE 

CHECK . * >* , TRACKS TO 

REQUEST .* A *. READ 



•SET PARAMETERS 



VERIFY WRITE 



• IF DASD SAH * 
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chart BB. DUMP- RESTORE Routine (Part 2 of 5) 
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* A1* 
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Chart BB. DOMP-RESTORE Routine (Part 3 of 5) 



hDCARD 



DAD5H 



♦. *svsrN 010A1 

PI3ST *. YES * 

ENTftJ .* >*H£*D A CONTaOL 

.» A ♦ CAaQ 



KtSET * 

SWITCHES »- 



Gt-T Di'LIMTEbS 



rd format c 
dscb(S) fbqh 

TODEV 



♦UPDATE EXTENTS 
» FOR PFl.OfATEi, 
» PAtlES 



GETrAftH 



•RDCA3D 001D1 

* GET r'ARAHtiTEfl 
**************** 



*. YISSCAMEaR 



*K1****» 

RETOctN 



*00«* 
VI* 
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Chart BB. DUMP-RESTORE Routine (Part 4 of 5) 



* 
CKVOLLM, * 

* 
a************* 



BLABHW 

#**•****• 



X«j »»*»*♦ 

» UPDftTE 

• 



♦♦*C1 ♦»»*»***»»« 

» GET VOt WBEL « 
FROM TO 

DEVICE * 

*«*****«♦****»« 



VGLDKE 


« 


NO 




IABE& » 
VQIJD 


. 


«___. 


* 








***** 


»• .* 






*00<t« 


* XES 






» B2* 






RETURN 
•*•••*•••** 



►♦******»****• 



SET VTOC AND 

DSCB EXTENTS 

UNAVAILABLE 



» GET VOl LABEL » 

* FROH DASD TO » 

* DEVICE • 

* * 
***************** 



***C»*»«« 



► OPBATE • 

► ALTERNATE TRACK* 

► EXTENTS * 



WRITE 

EXTENTS t>» 
VTOC DSCB 



►***F1*»*»*«« 
WRTCHK 






***Q2******** 

RE-EXECUTE 

ccw hist 



RETURN 

************** 
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Chart BB. DUMP- RESTORE Routine (Part 5 of 5) 



**«*A1»»»****»* 

* * 

* ENTERA » 

* « 


»ooe* 

* Bl *-> 

* * 


. * . . * . VAM2REST 
Bl ♦. B2 ». ♦♦♦B3******** 
.* ». .* *. 
.♦ IS THIS *. ¥ES .* TAPE ♦. NO * READ CONTROL 

«. A RESTORE .» >*, 1AVE STD .» > RECORD AND 

*. .» ♦. LABELS ,* • PAT 



READ PAT PAGE 



-CLERERPG- 

BUILD LIST OF 

ERROR PAGES 



RELOCATE PAT 

AND UPDATE 
VOLUME LABEL 






•♦♦*F1*«»*«***« 

-CLREBPG- 

CLEAR ERROR 

INDICATORS IN 

FROM PAT 



► ERROR *. YES 

PAGE ON TO .♦ 

> . DEVICE . ♦ 



->♦ RELOCATE PAGE 



IS TO 

DEVICE A 

DISK 



ENDOFPAT 

««**G5»»»»***»« 
SO * 
>* TERMINATE 

♦*»***»«****«»* 



„• DOES *, 

TAPE HAVE 

STD 

. LABELS . 



WRITE HEADER 

LABELS AND 

PAT 



*»*H2* ***»*»*** 

» WRITE CONTROL 
RECORD AND 

PAT » 






WRITE OUT PAT 



• *»Jtl»*****» 
TERMINATE 



•*»K1**»**« ♦»»*•» 

READ AND * 
WRITE IPL AMD 
LABEL RECORDS* 



•**•*•*** 
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SECTION 3: DIRECT- ACCESS PRINT (DADUMP) PROGRAM - MODULE CEBDP 



The direct-access print (DADUMF) pro- 
gram, module CEBDP, prints the contents of 
direct-access devices. 

ATTRI BOTES : DADUMP operates outside and in 
support of T3S/360 as a privileged, dis- 
abled, non-relocatable, aerially reusable 
program. 

RESTRICTIONS : None. 

HARDWARE CONFIGURATION REQUIREMENTS : The 
DADUMP program runs on a System/3 6 Model 
67 in standard PSW mode, or on any System/' 
360 with sufficient main storage and 

required device configuration: 

Main Storage: 34,000 bytes (2314) 47,200 
bytes (2301) 

Program Input Device: 2540, 2400 (9 track) 

Control Statement/Input Device: 2540, 
2400, 1052 

Message Output Device: 1052, 1403 

Other: 2301, 2311, 2314 

PROGRAM OPERATION 

The DADUMP program first determines the 
control statement input device, and reads 
and analyzes control statements. The job 
analysis routine determines from the BEGIN 
statement the starting track address, con- 
verts it to BBCCHH and puts it in TRACKNO 
to be used by the direct-access device 
input to seek the proper track. 

The program then reads a track from a 
direct-access device through its input rou- 
tine (VRECOVR) and puts it into a buffer. 
It builds an address table (RECTABLE) whose 
entries point to the records of the track. 
The output routine LISTTEST then uses VREC- 
TAB to print the records of the track. 

Finally, the program prints the contents 
of the track to the output device: The 
number of tracks to be printed out on any 
one extent is put into SAVREC by the job 
analysis routine to be used by the output 
routine. TRACKSAV .must have the beginning 
track in extended binary form as a decimal 
track number. 

The program determines the number of 
records in the track by seeking the track 
and setting the file mask to prohibit leav- 
ing the track. The channel program con- 



tinues with a search home address followed 
by a string of read count commands with the 
multiple track bit on. Upon reading the 
count of the last record, the hardware 4 
attempts to switch tracks, which causes u 
file mask violation. The interruption 
enables the program to (1) compute the 
number of records in the track and (2) » if 
the last record was an overflow record, to 
set the overflow- incomplete flag in the 
sense data to on. The key length and data 
length for each record are also available 
from the read count commands. 

The program then seeks the track and 
reads the home address, record zero, the 
count field, key field and data fields of 
each record. The information is converted 
to a printable format and printed. The 
program terminates and enters the wait 
state when the upper track limit is 
reached. If there are more tracks, the 
program proceeds similarly for the next 
track. 



DADUMP ROUTINE S 

The DADUMP program accomplishes its 
function through the following routines, 

summarized in Table 8 and Chart CC. 



INITIALIZATION ROUTINES 

Start Routine 

Control is given to location START when 
the utility is loaded into core. Base- 
registers are set up, registers are 
cleared, interrupt PSWs are set up and pro- 
gram switches are reset. The program is 
put in a wait state by means of an LPSW. 
The .operator then defines the input device 
either through the console or typewriter. 
The proper input routine is given control 
depending on device type. 

Console Routine 

CONSOLE assumes control via an external 
interruption, generated by pressing the 
interruption key, if the operator defines 
the input device through the console. CON- 
SOLE then checks the code to. verify that 
the input device is 2540, 2400, or 1052 and 
that the channel number. is not greater tnan 
six. If. these conditions are met, the 
UCBIN is. filled in with the address of tne 
input device, and control is given to th»* 
control card analysis (CLRSCAN) routine. 
If an error is detected in the coded inter- 
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Table 8. DADUMP Routines 

r 1 T . ^ 

I Type j Name | Function | 

j. + + ., 

| Initialization | START [Sets up base registers, clears register, sets up j 

(Routines j (interrupt PSW, and resets switches. j 

| j. + H 

J j CONSOLE | Checks operator- entered code to verify that the input j 
I | {device is valid. | 

| j. + _ H 

| (ATTN | Prints message to operator requesting input device j 
I | [definition. j 

j. + . + ., 

| Job Statement |TYPINPT J Tests input device. Enter STARTIO to read one record, j 

| Analysis [ -j- \ 

(Routines j CLRSCAN (Performs control statement analysis, and housekeeping j 
J ( (functions on program switches and buffer areas. | 
| j. + ^ 

i | SCANCARD (Scans control cards and identifies the fields. | 
[ y + ^ 

J (MSGPRINT | Prints a message to the device specified by MSG ( 

( ( (statement. ( 

j. _ f 1 ^ 

(Processing |VRECOVR (Pseudo-reads a track from a direct-access device; j 

(Routines ( (notes overflow and all errors found. j 

| j. + ^ 

j JLISTTEST [Controls the reading and printing of specified tracks [ 

[ j (of a direct-access device. ( 

| j. + . H 

j | PRNTDASD [Controls the printing of the contents of a track of a j 
j ( (direct-access device. j 

j f + A 

| (FORMAT (Formats a line of output (132 bytes) according to ( 
( [ [parameters given. | 

| y + . ^ 

| | HEADER | Formats the heading at the beginning of each new page, j 
j. _ 4 + A 

[Job (PRINT | Writes a line of output to the output device, which can | 

(Fulfillment j [either be a printer or typewriter. | 

(Routine ( ( j 

(I/O (I/O [Controls all I/O operations performed by the utility j 

(Routines j Control j program. | 

| j. + _ . A 

| | I/O Interruption j Examines and classifies I/O interrupts. | 

I (Analysis ( ( 

(Message J IOPRNT (Prints error messages, saves channel-and-unit , [ 

(Routine j [addresses, CCW status, and two sense bytes. ( 

i j j j 



mation, an error message is displayed in 
the console lights by means of an LPSW. 

ATTN Routine 

ATTN assumes control via an I/O inter- 
ruption generated if the input device is 
defined through a typewriter. On entry, 
the system mask is set to enable 
interruptions . 

ATTN constructs the UCBMSG and enters 
the write-to- operator (WTO) routine at 
MSGPRINT. MSGPRINT instructs the operator 
to enter the input device type. On return 
from WTO, ATTN reads the input device, con- 



verting lower case characters to upper case 
if necessary. Parameters are then passed 
to DEVLUP to scan FRMTABLE to test for a 
valid device. ATTN routine fills in the 
UCBIN with the valid device address and 
passes control to CLRSCAN. 

When an invalid input device is speci- 
fied, an error message is displayed in the 
instruction counter portion of the console 
lights . 

TYPEINPT Routine 

On entry, general registers are saved 
and the control statement input device is 
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tested. If tape or card reader, the system 
mask is set to enable • interruptions. The 
routine passes control to START 10 to read 
one record. Control is returned to the 
calling routine. 

If the typewriter is defined as the 

input device, the information pertaining to 
one extent is read; control is passed to 

RECOVER to read the specified track. 



JOB STATEMENT ANALYSIS ROUTINES 



CLRSCAN Routine 

CLRSCAN performs control statement anal- 
ysis. It first does housekeeping functions 
on program switches and buffer areas 
required by the program. The routine then 
links to the control card scan routine at 
SCANCARD. If SCANCARD indicates an error 
when it returns control, an error message 
is printed. 

If the field is flagged as a command by 
SCANCARD, the routine searches CMDTABLE for 
a matching valid command, and goes to the 
specified routine to process it. Keywords 
are processed in the same way using 
KEYTABLE. If the keyword is valid, the 
routine that processes that keyword calls 
SCANCARD to obtain the parameter and checks 
for validity. Parameters specifying I/O 
devices are checked for validity by 
FRMTABLE. 

When the control statements are pro- 
cessed, they are checked for correct 
sequence, printed out, and switches are 
set. When the END statement is encoun- 
tered, all outstanding requests made by the 
control statements are honored. 

Each PRINT statement is honored as it is 
encountered. After the PRINT statement is 
honored, the CLRSCAN routine is reentered, 
and the next control statement is read. 

Error Conditions : Command or keyword field 
returned by SCANCARD is too long or cannot 
be found in the appropriate table. 

An invalid parameter is given following 
a keyword. 

A required parameter is not present when 
the END card is encountered and processed. 

SCA NCARD Routi ne 

SCANCARD scans a control card (and any 
continuation cards present) and identifies 
the fields. The card is read, by READ- 
CARDW, from the system input device into 
the routine's word area (SCANSW). 



Any non-blank name field is ignored. If 
an error, command, keyword, parameter, or 
right parenthesis is encountered, a switch 
is set in the first byte of the work area. 
If" the remaining portion of a statement is 
to be skipped, the bypass switch is set in 
the same byte. When control returns to the 
calling routine, register 1 contains the 
address of the first byte of the field and 
register 2 the length of the field. SCANSW 
is laid out as follows: 

byte : Scan switches 

bytes 1-80 : Input buffer 

byte 81 : Entry control switches 

byte 82 : Current delimiter switch 

byte 83 : Previous delimited switch 

byte 127 : Exit control switches 

bytes 12 8-129:.. Parenthesis counter 

bytes 136-139* Save area for pointer to 

next column to be scanned 

bytes 144-191: Save area for registers 
3 through 14 

The individual bits of the switches art- 
described in Table 9. 

When control exits from SCANCARD, t Im- 
partial parameter and command control 
switches are set to "off". 

Error Conditions : 

• No command before column 71 of a card. 

• First non-blank field after the name 
field not terminated by a blank. 

• Unpaired parentheses. 

• Partial parameter field not terminated 
by the end of the card it is continued 
on. 

• Keyword with a length of zero bytes. 

MSGPRINT Routine 

MSGPRINT is entered at the MSGPRINT 
entry point to write a line to the message 
device. On entry, registers are saved. At 
this point the message UCB (UCBMSG) is 
interrogated for a defined write- to- 
operator (WTO) device. If WTO is not 
defined, an error wait is entered. Other- 
wise, the count and address are stored in 
the CCW and STARTIO is entered to issue a 
message to the operator. On exit, regis- 
ters are restored; control is returned to 
the user via register 9. 
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Table 9. SCANSW Bits 
r j. T T T ^ 

I j Scan | Entry Control | j j 

J Bit | Switch | Switch | Exit Control Switch j Delimiter Switches | 

I- ^ x x + _ _ .j 

JO jscan error |not used | condition code j delimiter is an = j 
j. x + + + ^ 

|1 | bypass (continue (condition code 1 (delimiter is a , j 

j. x + + + . ^ 

| 2 (not used (parameter follow (delimiter in column 71 (delimiter is a ( j 

| 3 (first entry (partial parameter j not used (delimiter is a ) j 

I |if | | 1 | 

j. + x + + ^ 

(4 (command (not used | column 72 (delimiter is a blank j 
I (found !| ( j 

(. x x x x ^ 

1 5 J keyword (command control | column 72 non- blank (not used ( 

j (found II If 

i L i j _ I . j 

ITT T T 1 

(6 (parameter [not used (parameter length greater thanjnot used [ 

| (found I 1 | ( 

y x + x . x x 

(7 (right Jnot used (parameter length equal to | not used | 

j ( parenthesis) j ( | 

I (found III I 

t X X X X J 



PROCESSING ROUTINES 



VRECOVR Routine 



1. Intervention Required. A message is 
printed indicating intervention is 
required. The PSW is loaded with the 
wait bits on. 



VRECOVR is entered at either the VRECOVR 
or RECOVER entry points. On entry the CCW 
list is initialized as are switches and 
RECTABLE. VRECOVR then saves the program 
check PSW, and loads it with a return 
address. CLEARCOR is then entered to clear 
core storage, beginning at the location 
specified in register 9. 

The CLEARCOR routine loops .to clear core 
until a program check is generated. At 
this time the PSW, loaded earlier, gives 
control to the instruction following the 
branch to CLEARCOR. 

On return, parameters are set and READ- 
DASD is entered to read the home address, 
record 0, and record 1 count. The track 
preceding the requested extent is tested 
for overflow. If overflow is indicated, 
OVRFLOSW contains X'10', otherwise, X'00'. 
If, at this point, a bad track is discov- 
ered, the alternate is checked. 

ERROR CHECKS ; All check bits in the status 
byte are considered ABEND conditions except 
unit check, unit exception, and incorrect 
length. 



Data Check. If it occurs in the home 
address, in the key or data fields, 
the fact is only noted in RECTABLE. 
If found in the count field as well as 
being noted in RECTABLE, a data field 
the length of the rest of the track is 
read and printed immediately. Control 
is returned to the main part of the 
routine with the bad record skipped. 

File Protection. This means that the 
end of the track has been reached. 
The routine in control after this 
error occurs is a housekeeping routine 
which completes the address table 
before control is passed to the 
format-print routine. 



ERROR CHECKS ; Overflow. This error check 
occurs in conjunction with the file protec- 
tion error. The only difference in control 
is one instruction, which turns on an over- 
flow switch. Control goes to the field 
protection error check routine. At the end 
of the file protection-overflow error check 
routine, two switches are set to indicate 
that this track is overflow. 



UNIT CHECKS ; The following form conditions 
are common to all supported direct-access 
devices (2311, 2314, 2301). All sense byte 
error checks are considered ABEND condi- 
tions except those listed. 



For 2301 Only ; The following two condi- 
tions are handled uniquely for 2301, All 
sense byte error checks are considered 
ABEND conditions except those listed. 
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MISSING ADDRESS MARKER : A missing address 
marker is handled as a data check in the 
count field. 

TRACK CONDITION : When this condition is 
found, it is ignored; i.e., control is 
returned without indicating the error. 

UNIT EXCEPTION : Occurs when READDATA finds 
no data. If no data was expected, READDATA 
is modified to read count. control con- 
tinues as usual. If data is expected, an 
error message is issued. RECTABLE is com- 
pleted and LISTTEST is given control. 

If unit exception occurred because of a 
defective track, the head is positioned on 
the alternate track, an appropriate message 
is printed, and control is returned to VRE- 
COVR to read the new track. 

Incorrect Length : This condition is 
ignored; i.e., control is returned without 
noting any error. 



Extent Printer Routine ( LISTTEST) 

LISTTEST is entered after the first 
extent has been processed by vrecovr. Con- 
trol is immediately passed to PRNTDASD. 
When control returns from PRNTDASD, it 
passes to either one of the several points, 
as indicated by the decision table: 



• Bad record 

• Bad count 

• Missing address marker 

The next record is read and checked for 
an error flag. If one occurs, an error 
message results. Otherwise, the record is 
checked for overflow. If overflow exists, 

a message is printed and FORMAT is entered. 
If -no overflow occurs, FORMAT is entered 
but no message is issued. 

On return from FORMAT, the records are 
processed using FORMAT when necessary. 
Switches and buffers are reset and another 
record is read. 

On exit, registers are restored and con- 
trol is returned via register 9. 



FORMAT Routine 

FORMAT is entered at the FORMAT entry 
point. This routine converts and prints a 
line of output (132 bytes). 

On entry, FORMAT expects registers "3- r > 
to contain: 

3 - number of bytes 

4 - address of output buffer 

5 - address of next record 



Last track on volume 

Extent finished 
JCL from console 
End card processed 



Branch to VRECOVR 
WAIT (operator) 
Branch to ANYMORE 
Branch to TOSCAN 
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On return, LISTTEST tests the track to 
see if it is the last of the volume. If 
not, the track addressed is incremented and 
return is made to VRECOVR. otherwise, the 
message "END OF VOLUME" is printed and exit 
is made to TESTINPT. 



PRNTDASD Routine 

PRNTDASD is entered to print the track 
for visual inspection. On entry, all gen- 
eral registers are saved. The routine then 
initializes record number ana byte count; 
zeros the line count; and prints the head- 
ing using the PRINT routine. 

VCOONTY is entered to restore switches 
if any of the following have occurred: 



Register 1 contains the return address. 

If the record is a home address 
( FORMATS W=X'FF* ) it is unpacked. FORMAT 
loads the home address location and the 
next available position in the print butter 
into registers 4 and 5 in the save area. 
Registers are restored and control returns 
through register 1. 

When FORMATSW=X'0F' , record zero count 
area is unpacked, but not printed. Regis- 
ters are restored and control is returned 
via register 1. 

If neither of the above cases apply, 
lines are converted until full. When a 
line becomes full, a test is made for rec- 
ord zero (FORMATSW=X*F0' ) . A data area is 
tested for identical lines; record zero is 
not. In any case, control passes to PRINT 
to print the line. 

On return from PRINT, control is passed 
to the proper routine via register 9. 

Headin q R outine (HEADER) 

HEADER is entered at the HEADER entry 
point witn the return address specified in 
register 9. On entry, all general regis- 
ters are saved (restored on exit) . 
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HEADER determines device address-- (CUU) 
and device type. FRMTABLE is searched for 
a useable device address. Separate rou- 
tines are used to place a disk or drum 
device type in the heading. MOVEBUF is 
entered to load the print buffer with the 
header address, track address, and proper 
page. Page numbers are updated in decimal 
and converted to EBCDIC, MOVEBUF passes 
control to the PRINT routine to print the 
header. 

On return from PRINT, the overflow con- 
dition is tested. If overflow occurs, the 
proper message is issued. In any case, 
control returns to the caller through 
register 9. 

The logic of the HEADER routine is as 
follows: 



Beginning of track 


1 1 I 1 1 1 
1 |N|Y|Y|Y| 


Beginning of extent 


l|N|N|N|3f| 


Previous track was over- 


1 1 1 1 f 1 


flow 


11 |N|Y| j 
|-L_X_-j — -J.-.J 


Set up header 


1 1 f 1 |X| 


Update header 


l|X|X| | | 


Eject and print line 1 


IJXjXj |X| 


Format, print line 2, 


Mill 


Skip 1 


il |X| fX | 


Skip 2 


l|x| ! 1 \ 


Start overflow record 


1! ! |x| | 



DADUMP I/O SUPERVISORY ROUTINES 

The DADUMP I/O supervisory routines per- 
form these functions: 

1. Initialization and termination. 

2. I/O processing (control, interruption 
processing, error handling). 

3. Message generation. 

STARTIQ Routine 

This routine controls all I/O operations 
performed by the utility program. It is 
entered at STARTIO, always by way of LINK9 . 
Register 2 (UCBREG) contains the address of 
the appropriate UCB. Register 3 contains 
the address of the CCW. The device address 
is loaded into register CSR4 from the UCB 
whose address is in register UCBREG. All 
pending interruptions are serviced at this 
point with the use of an SSM instruction 
and the proper interrupt returns. 

When all pending I/O interruptions are 
serviced, an SIO instruction is issued 
until the command is accepted, at which 
time the TIO instruction is issued 
repeatedly until the unit is not busy. If 
the unit is unavailable, the wait state is 
entered, and the program is terminated. 
Control is then given to the I/O Interrup- 
tion Analysis routine at location CKCSW. 

CKCSW Routine 



JOB FULFILLMENT ROUTINES 

Print Routine (PRINT) 

PRINT writes a line of output to the 
output device, which can be either a print- 
er or typewriter. 

If the output device is undefined, a 
message is issued and the job terminated. 
If the output device is the typewriter, the 
message is printed, and the job is ter- 
minated. If the output is on tape, the 
tape is positioned, the line written, and 
control returned. 

If the eject switch is on, a page is 
ejected, the line count is set to zero, and 
the eject switch turned off. Registers are 
restored and an unconditional branch taken 
to HEADER. 

If the eject switch is off, the line is 
printed, and the line count is incremented 
and checked. If it indicates a full page, 
PRINT proceeds as if the eject switch were 
on. Otherwise, control is returned. The 
buffer is blanked after each line of 
output. 



All I/O interruptions cause control to 
be given to this routine at location CKCSW. 
Register UCBREG contains the address of the 
appropriate UCB, the device which caused 
the interrupt. This routine examines the 
nature of the I/O interruptions and classi- 
fies them according to the six types of 
interruptions. The type of interruption is 
determined by scanning the status portion 
of the CSW. 



MESSAGE ROUTINES 

IOPRINT Routine 

IOPRINT is entered when there is a sys- 
tem error or a situation where intervention 
is required. Information from the UCB, and 
the command code from the last I/O instruc- 
tion, is printed out in addition to an 
error message. IOPRINT saves the channel 
and unit addresses, CCW status, and two of 
the sense bytes. These are printed with 
the error messages by MSGPRINT. 

Error Messages 

Error messages are listed in System 
Messages . 



38 



Diagnostic Messages 

Diagnostic messages appear in the fol- 
lowing format: 

number (16-byte text) cuuxxssssyyyy 

where c is the channel of the device in 
error, uu is the unit. xx is the command 
code, ssss are the status bytes from the 
channel status word, and yyyy are the sense 
bytes. 

Message texts are listed in System 
Messages . 
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Chart CC. DADUMP Routine (Part 1 of 6) 
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Chart CC. DADUMP Routine (Part 2 of 6) 
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CHART CC. DADUMP Routine (Part 3 of 6) 
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Chart CC. DADUMP Routine (Part 4 of 6) 
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Chart CC. DADUMP Routine (Part 5 of 6) 
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Chart CC. DADUMP Routine (Part 6 of 6) 
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SECTION 4; SYSTEM/360 MODEL 67 CORE DUMP PROGRAM - MODULE CEBCP 



The System/360 Model 67 core dump pro- 
gram, module CEBCP, prints in special for- 
mat the contents of registers and PSA areas 
for each central processing unit in the 
system, and prints the contents of main 
(core) storage with protection keys. The 
number of CPUs in the system is communi- 
cated via control cards. Addressable core 
storage is computed dynamically. 



ATTRIBUTES : The core dump program operates 
outside and in support of TSS/360-67 as a 
privileged and nonreusable program. 

ASSUMPTIONS AND RESTRICTIONS : The core 
dump program operates only on System/360 
Model 67. PSA information is given for all 
CPUs in the system; however, if for any 
reason it is not included, processing con- 
tinues as if there were only one CPU in the 
system. Locations 0-23 are destroyed by 
IPL. No error messages are issued to the 
operator. 



PROGRAM OPERATION 

The core dump program (Chart DD) is 
divided into three sections of code: (1) 
the IPL record, which loads in the first 
card of (2), the bootstrap loader, which 
continues to load itself and (3), the core 
dump program, into contiguous locations. 

The IPL Record, containing a psw , CCW, 
and eight unused bytes, is punched in 
columns 1-24 of the first card. The 
instruction address of the PSW is the same 
as the data address in the CCW, and both 
point to an available double-word location 
in core storage. This record overlays 
locations 0-23 at IPL time; therefore, the 
contents should be manually recorded by the 
operator before IPL. 

The bootstrap loader consists of one or 
more 80-byte records; the first card is 
loaded by the IPL record, and the others 
are loaded by the first loader record. The 
loader then reads a program card into a 
buffer, analyzes the card image, and, if a 
TXT card, loads the determined number of 
text bytes immediately following the buffer 
in contiguous core locations. A counter is 
maintained to show the next immediate byte. 
If the card is found to be an END card, 
control is given to the dump program at the 
address calculated from this card. All 
general registers of the IPLd CPU are saved 
by this section. 



CPU information contains the contents of 
control registers, floating-point regis- 
ters, general registers, CAW, CSW, timer, 
interrupt codes, and the old PSWs. The 
PSWs are printed in hexadecimal format. 



The primary and alternate PSA areas are 
printed for each CPU if they are address- 
able. For the IPLd CPU, the interrupt 
codes are not available since they reside 
in bytes 0-23 at IPL time. The primary PSA 
is printed first for all CPUs, followed by 
the alternate. 

Each CPU printout begins on a new page 
with appropriate headings. The PSA areas 
are printed with their actual storage 
addresses (not location zero unless prefix- 
ing is inactive) . 

Following the CPU information, the con- 
tents of addressable core storage are 
printed. On the first line of each 2048 
bytes of core, the storage protection key 
is printed. Thirty-two bytes are printed 
on each line. A line is printed indicating 
PSA areas. Consecutive lines containing 
the same information are printed only once. 



INITIALIZATION 

This group of routines saves all regis- 
ters of the IPLd CPU; reads control cards; 
constructs a table of primary and alternate 
PSA addresses for all CPUs in the system; 
and, when the IPLd CPU is identified, 
passes control to the CPU dump section. 

The FIRST routine stores general, 
floating-point, and multiple control regis- 
ters of the IPLd CPU; saves old and new 
program PSWs; and constructs the channel 
command word (CCW) and channel address word 
(CAW) for reading control cards. Control 
is then passed to the READ routine. 

The READ routine tests for a PFX card. 
Upon encountering a PFX card, control is 
passed to BUILDRTN to construct the PSA 
table. 

BUILDRTN constructs the PSA table 
(Figure 5) using the CPU number as an 
index. Primary PSAs are analyzed followed 
by the alternates. At this time, an avail- 
ability status is set "on" under the 
assumption that the PSA exists and is 
available to the system. 
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Figure 5. PSA Table Format 
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When an output control record (OPT card) 
is encountered, the PFXSW routine is given 
control. A test is made to see if a prefix 
record was read. If there was no prefix 
record, ONLYONE routine assumes that there 
is only one CPU in the system with a pri- 
mary PSA starting at location and no 
alternate PSA. If there was a prefix rec- 
ord, the PSA table is scanned and a last 
entry bit is marked for the last CPU prefix 
in the table. 



After the OPT is analyzed, CONTINUE 
saves both storage keys for each PSA page 
in the PSA table, as well as the contents 
of byte for all PSAs. If a program 
interruption is caused by an addressing 
exception, the PSA is considered not avail- 
able and the availability bit is turned off 
in the status byte. If the PSA is avail- 
able, zeros are stored in location zero. 
This procedure is continued until each PSA 
has been tested for availability. Now, 
non-zeros are stored in the IPLd CPUs loca- 
tion 0. The program next determines its 
own CPU identity by finding the address in 
the table which points to the non-zero 
byte. 



Once the IPLd CPU is determined, its ID 
and prefixes are stored in the CPU dump 

area. 



CPU Dump Routine 

The CPU dump routine dumps all register 
contents and the contents of both PSAs per- 
taining to each CPU. Since the registers 
of the IPLd CPU are already saved, this CPU 
is dumped first. 

The primary PSA of the CPU to be dumped 
is tested for availability. If it is 
available, locations 0-127 are formatted 
and printed, after all register contents 
have been formatted and printed. The 
entire PSA page is then dumped. The same 
procedure is followed for the alternate PSA 
of the CPU. 

When the alternate PSA is printed, the 
CPU number is incremented by one and the 
CPU count is compared with the IPLd CPU 
number. If equal, the count is incremented 
by one. The new CPU number is stored in 
the CPU dump area. 

The availability of the prefixes for the 
other CPUs is tested using the CPU number 
as an index. If the primary is not avail- 
able, the alternate is tested for availa- 
bility. If the alternate is not available, 
a message is printed to the effect that the 
CPU is not available. In either case, if 
available, locations 0-7 of the PSA are 
saved, a PSW is inserted in these loca- 
tions, and the externally started CPU is 
directed to a routine that will save its 
registers. The CPU done bit is turned off 
before the other CPU is externally started. 

While the externally started CPU saves 
its register contents, restores its loca- 
tion 0-7, and sets the CPU done bit on, the 
IPLd CPU loops and tests the CPU done bit 
for the "on" condition. When the on condi- 
tion is recognized, the procedure is 
repeated for the next CPU in the system. 
If the on condition is not met within the 
required time, it is assumed to be non- 
responsive and a message is printed out. 

This procedure is repeated for up to 
four CPUs or until the last entry bit is 
encountered. A test is made for "last 
entry" after each PSA has been handled. 

COREDUMP Routine 

The COREDUMP routine starts dumping from 
location hexadecimal 1000. If the location 
addressed results in an addressing excep- 
tion, NOTAVAIL increments the dump pointer 
to the next 2 56K boundary. Dumping is con- 
tinued until a test shows that all possible 
core has been handled. The COREDUMP rou- 
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tine formats and prints one page (storage) 
at a time using the PAGEPRNT routine. 

The PAGEPRNT routine prints 4 096 bytes 
of main (core) storage beginning at the 
address passed as a parameter in general 
register 4. The storage key is printed for 
each 20 48 bytes. This routine prints 32 
bytes of core storage per line. 

The TESTDUP routine compares adjacent 
32-byte areas of core storage. Duplicate 
lines are flagged and maintained until a 
non duplicate line is encountered. At this 
time, a summary of duplicate lines is 
printed. 
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Chart DD. CORE DUMP Routine (Part 1 of 3) 
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Chart DD. CORE DUMP Routine (Part 2 of 3) 
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SECTION 5: VAM 2 UTILITY PROGRAM CVAM2UT) — MODULE CEBVP 



The VAM 2 Utility Program is a stand- 
alone program that allows the user to dump, 
display, and patch disk volumes in VAM 2 
format. The program uses commands in stan- 
dard Time Sharing Support System (TSSS) 
syntax. 

ATTRIBUTES ; VAM2UT operates outside and in 
support of TSS/360 as a privileged, non- 
relocatable, serially - reusable program. 



control to the card reader via the CALL 
command, or continue to enter commands from 
the console. VAM2UT has no normal- 
completion exit: rather, it will enter a 
wait state. If an error occurs, a message 
will precede the wait state. 



RESTRICTIONS: 



as follows 



1. A maximum of 25 volumes are considered 
for a multi-volume data set. 

2. A maximum of 2000 pages are allowed 
for a data set. 

3. Nine pages (36K) of main storage are 
required to patch a 2314, using the 
$VAM command. 

4. A member may have a maximum of 40 
pages. 



HARDWARE REQUIREMENTS : VAM2UT is a tape- 
resident module that can operate on any IBM 
System/360 with the required device config- 
uration, as listed below. 



Main Storage 
Program Input Device 
Command Input Device 
Program Output Device 
Message Output Device 
Other 



3 2,00 bytes 

2400,2540 

2540,1052 

1403,1052 

1052 

2311,2314 



PROGRAM INITIATION AND OPERATION 



The 



absolute loader, which precedes the pro- 
gram, loads the program at location zero. 
The first eight bytes become a psw that 
passes control to location START. 

START initializes the general registers, 
establishes the base registers, sets up the 
PSWs, determines the available buffer 
storage, and puts the program into the wait 
state with I/O interruptions enabled. The 
initial attention interruption, from the 
console, defines the operator console as 
SYSIN. The program leaves the wait state; 
it branches to the I/O status check rou- 
tine, (CKCSW in START IO ) , to the I/O atten- 
tion interruption handler, and to FOUNDSCB, 
which is the main communications routine. 
At this point the operator receives an 
initialization message from ATTN, and a 
dollar sign {$) from FOUNDSCB, as a prompt- 
ing message. He may now either transfer 



OPERATION 

The absolute loader gives control to 
VAM2UT at the START entry point. PSWs and 
base registers are established? the avail- 
able core pages are recorded. START sets 
up a dummy UCB area, and enters the wait 
state with I/O interruptions enabled. An 
attention interruption from the operator's 
console causes a UCB to be built for the 
console, which defines that device as 
SYSIN, and causes control to pass to the 
ATTN routine which prints the identifying 
message at the console. FOUNDSCB next 
prints the $ on the console; it enters the 
wait state for further input. 

Commands are now analyzed, and control 
is passed to validate the parameters. 

• CALL — SYSIN is set to receive the 
next command from the card reader. 

• RUN — SYSIN is set to receive the next 
command from the operator's console. 

• SET -- The second-level keyword is 
found and handled as follows: 

$DS 

At NEXTDSCB the PAT is searched to 
find DSCB pages; the E DSCB slots 
are searched for data set name. 
BUILDSCB constructs a table of 
pointers to the DSCBs for the data 
set. Control then returns to 
FOUNDSCB to accept the next 
command. 

$DISK 

SETDISK builds a UCB, reads in the 
PAT, indicates that the disk is 
defined, and returns control to 
FOUNDSCB to accept the next 
command. 

$DOUT 

SETDOUT sets the UCB to define the 
printer, and returns control to 
FOUNDSCB. 
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• DUMP — The second- level keyword is 
found and handled as follows: 

$PAT 

at READPAT, processing is initiated 
to read the PAT at T311. The PAT 
is then printed, using the DUMP 
routine, and. control is returned to 
FOUNDSCB to accept the next 
command. 

$DSCB 

DSCBDUMP reads the PAT for the 
specified DSCBs, and gives control 
to DUMP to print them. Control is 
returned to FOUNDSCB to get the 
next command. 



$VAM 



$DS 



VAMCK finds the specified page 
number and passes it to READPAGE to 
read the page. VDUMP prints the 
page, using DUMP, and returns con- 
trol to FOUNDSCB to accept the next 
command. 



PODSDMP ensures that the disk has 
been defined (via SET $DISK) , and 
that a data set name exists. The 
pages are read by the READ routine, 
and printed by DUMP. Control is 
returned to FOUNDSCB to accept the 
next command. 



length , and type attributes. READ- 
PAGE reads the requested page, via 
OPPRNT, and returns control to 
FOUNDSCB to accept the next 
command. 



$PMD 

RDPOD reads the POD, using the READ 
routine. SRCHPOD finds the CSECT 
name, and SRCHPMD locates the con- 
trol section dictionary. PATCHER 
then displays the PMD using the 
OPPRNT routine, and returns control 
to FOUNDSCB to accept the next com- 
mand. If $VM or $RM is specified, 
the PMD and its member pages are 
displayed. 

CEIAP 

READPREL reads the prelude, using 
the READ routine, and passes con- 
trol to PATCHER to verify the CSECT 
length. READIN sets up the prelude 
for BCTR1 to display it via OPPRNT. 
Control is returned to FOUNDSCB to 
accept the next command. 



PATCH — processing is the same as for 
the DISPLAY command. The user is then 
prompted to see if a patch is to be 
made. The patch is made according to 
keyword type: 



$POD 



Processing is the same as for $DS, 
but only the POD pages are read and 
printed. 



$VAM 



$PMD 



RDPOD reads in the POD; SRCHPOD 
gets the PMD address from the POM. 
MODUMP passes the PMD length to 
DUMP, which prints the PMD. Con- 
trol is returned to FOUNDSCB to 
accept the next command. If $VM or 
$RM is entered as a second-level 
keyword to the DUMP routine, the 
PMD is printed with its member 
pages. 



DISPLAY — The second-level keyword is 
found and handled as follows: 



$VL 



DSAVE initiates processing of the 
offset, length and type attributes, 
DOVL then reads the volume label 
using the READ routine, and dis- 
plays it using OPPRNT. control is 
returned to FOUNDSCB to accept the 
next command. 



The CHECKSUM is recalculated for a 
DSCB page. GOWRITE writes the 
page, and control is returned to 
FOUNDSCB to accept the next 
command. 



$VL 



DOVLP sets up the label and passes 
control to WRITE, which writes the 
label and returns control to 
FOUNDSCB to accept the next 
command. 

CEIAP 

The prelude length is calculated 
and passed to WRITE. WRITE patches 
the prelude on the disk, and 
returns control to FOUNDSCB to 
accept the next command. 

$PMD 

GOWRITE sets up the page? WRITE 
patches the PMD and returns control 
to FOUNDSCB. 

The VAM2UT routines are summarized in Chart 

EE. 



$VAM 



VAMCK passes the page number to 
DSAVE which processes the offset, 
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INITIALIZATION ROUTINES 



PROCESSING ROUTINES 



START Routine 

START receives control from the absolute 
loader, and performs the following: 

• sets up base registers. 

• sets up PSWs. 

• records buffer space available. 

• enters the WAIT state pending an 
interruption. 

ATTN Routine 

ATTN receives control following an 
attention interruption from the operator 
console; it prints an identifying message 
on the console, and it passes control to 
FOUNDSCB. 

COMMAND PROCESSING ROUTINES 

FOUNDSCB Routine 

FOUNDSCB prints a $ on the console, ask- 
ing for input, and if the input comes from 
the card reader, it prints the card image 
on the operator console. Control now 
passes to CKBUF2 for command and parameter 
analysis. 

CKBUF2 Routine 

CKBUF2 scans the input for an acceptable 
command and, having found one, sets an 
identifying flag for COMRTN. 

COMRTN Routine 

COMRTN, entered at COMRTN 1 , analyzes all 
second level commands keywords. Here, syn- 
tax is checked and the decision is made as 
to which processing path to follow (see 
"OPERATION"). 



The VAM2UT processing routines are log- 
ically organized by command/keyboard combi- 
nations, and by the program flow that fol- 
lows from each combination. The RUN com- 
mand re-enters the ATTN routine to set 
SYSIN= the card reader. All other commands 
are shown in tables 10 through 14, 
referenced to the possible parameters, and 
showing the logical order of processing 
routines for each command/keyword combina- 
tion. Following the tables, the processing 
routines are summarized in alphabetical 
order. 

Table 10 shows the CALL command. 

Table 11 shows the SET command. 

Table 12 shows the DUMP command. 

Table 13 shows the DISPLAY command. 

Table 14 shows the PATCH command. 



Table 10. 



The CALL Command 

~ T 



| CALL | 

j Routines | GETDEV 

J Called | UCBBUILD 

| | SCAN 

I j FOUNDSCB 



1 

I 

I 
I 

I 
t 



Table 11. The SET Command 



j SET 



Routines 
Called 



| $DS 
4- 



$DISK 



$DOUT 



• "I 



GETDSNAM 

GET DEVI 

MOVEREL 

NEXTDSCB 

BUILDSCB 

FOUNDSCB 



SETDISK 

GETDEV 

UCBBUILD 

SCAN 

GET DEVI 

READ 

CKAGAIN 

MOVEREL 

READ 

DISKONN 

FOUNDSCB 



SETDOUT 

GETDEV 

UCBBUILD 

SCAN 
FOUNDSCB 
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Table 12. The DUMP Command 



j DUMP | $PAT 

j Routines j PATCHER 


$DSCB ' 


$VAM 


$DS $POD 


$PMD 


1 


DSCBDUMP 


VAMCK 


DSSET PODSET 


SETPMDSW 


| Called j GETDSO 


FOUNDSCB 


UCBBUILD 


VAMCK VAMCK 


MODCHK 




j | GETDEV1 




SCAN 


MAKETAB MAKETAB 
, READ READ 


MODS AVE 
RDPOD 




j 1 MOVER EL 


. ALL/ . E 


RDPOD 




j | READ 


DSCBDUMP 


DUMP 


DUMP DUMP 


READ 




( j PATCHER 


PATCHER 


READ 


FOUNDSCB FOUNDSCB 


SRCHPOD 




j j DUMP 


GETDSO 


DUMP 




MAKETAB 




| J SCAN 


GETDEV1 


SCAN 




SRCHPMD 




j | PRINT 


MOVEREL 


PRINT 




SCANCSD 




| | FOUNDSCB 


READ 

CNVRELPG 

DSCBDUMP 

READ 

CNVRELPG 

READ 

DSCBDUMP 

PRINT 

DSCBDUMP 

DUMP 

PRINT 


FOUNDSCB 




READ 

FINDCSD 

PMDPATCH 

WANT PAT 

PATCHER 

MODUMP 

READ 

DUMP 

FOUNDSCB 




L X 


FOUNDSCB 





, — . 


. . 


J 


Table 13. The DISPLAY 


Command 










| DISPLAY | $VL 




$VAM 


$PMD 


CEIAP 


I 

i 


^ _ X _ _ 

| Routines | MODS AVE 1 




VAMCK 


MQDS£VE1 


MODSAVE1 


| Called | CKDIS 




MODS AVE 1 


CKDIS 


CKDIS 




| | SCAN 




CKDIS 


SCAN 


SCAN 




1 j RDPOD 




SCAN 


RDPOD 


READPREL 




j | DOVL 




READPAGE 


SRCHPMD 


PATCHER 




j | FOUNDSCB 




PATCHER 

PAGEOFF1 

FOUNDSCB 


READPMD 

PMDPATCH 

PATCHER 


FOUNDSCB 




L i 






FOUNDSCB 




j 



Table 14. The PATCH Command 



| PATCH 

J. -. 

Routines 
Called 



$VAM 

VAMCK 

MODSAVE1 

PATCH 

SCAN 

READPAGE 

PATCHER 

ASKAGAIN 

PATDUMP 

CKAGAIN 

FIXCHK 

GOWRITE1 

FOUNDSCB 



$VL 



MODSAVE1 

PATCH 

SCAN 

DOVL 

ASKAGAIN 

DOVLP 

FOUNDSCB 



CEIAP 



MODSAVE1 

PATCH 

SCAN 

READPREL 

PATCHER 

ASKAGAIN 

WRITPREL 

FOUNDSCB 



$PMD | 

MODSAVE1 

PATCH 

SCAN 

RDPOD 

SRCHPOD 

SRCHPMD 

READPMD 

FINDCSD 

PMDPATCH 

ASKAGAIN 

GOWRITE1 

FOUNDSCB 
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ASKAGAIN Routine 



CHKDIS Routine 



ASKAGAIN uses OPPRNT to proir.pt the 
operator either to continue with trie PATCH 
operation, or to cancel it following the 
display. A "continue" reply causes control 
to pass to the patching routine for the 
particular keyword. A "stop" reply passes 
control to FOUNDSCB to prompt for the next 
command. 



BUI LPS CB Routine 

BUILDSCB builds the DSCBREL table (see 
Figure 6) , which consists of a series of 
fullword DSCB pointer entries: the first 
byte contains the DSCB slot number; the 
second byte contains the relative volume 
number; the second half-word contains the 
relative page number. After one entry is 
completed for each DSCB in the data set, 
exit is made to FOUNDSCB. 
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CHKDIS validates the syntax for a DIS- 
PLAY command, sets the display length in 
DOSAREA, and branches to SCAN for EBCDIC to 
binary conversion. On return front SCAN, 
CHKDIS passes control to RDPOD. 

DISKONN Routi ne 

DISKONN flags the disk as "defined" fol- 
lowing a SET $DISK operation. Control is 
then passed to FOUNDSCB. 

DOVL Routine 

DOVL is entered when a volume label is 
being patched. First, GETDEV2 reads the 
volume label into core. Then, the patch is 
moved from its buffer to REVPAT. Finally, 
the volume label is displayed, via OPPRNT, 
at the console. If a PATCH was specified, 
control is passed to ASKAGAIN. Otherwise, 
exit is made to FOUNDSCB. 

DOVLP Routine 

DOVLP writes the patch to a volume label 
area on disk. First, SCAN is called for 
any EBCDIC to binary conversion; then, 
WRTVLBL calls WRITE to write the patch. 
Exit is made to FOUNDSCB. 
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Figure 6 . DSCBREL 

CKAGAIN Routine 

CKAGAIN is entered to read in the PAT 
(for a 231*1, the second PAT page is read 
first) via READ. If RELTAB (the Relocation 
Entry Table) has not yet been built, 
MOVEREL is called to build it. In any 
case, control is then passed to the next 
processing routine, as shown in the follow- 
ing table. 

$VAM | | X | | | 

$PAT i X | | i | 

$DSCB | | | X | | 

$DISK | | | | X j 

PATDUMP1 I X I | | 1 

FIXCHK | | X | | | 

DSCBDUMl | | | X [ j 

DISKONN I | | | X | 

X X X X J 



DS CBDUMP Routine 

DSCBDUMP is entered to dump 
the 1403 printer. If all DSCB 
dumped, or if no data set was 
control is passed to READPAT; 
through READPAT, and CKAGAIN, 
where all DSCBs on the volume 
When a dump is requested for a 
DSCBs, or for the DSCBs for a 
set, DSCBDUMP ejects a page on 
reads a DSCB page into core, a 
either all format E DSCBs, or 
one data set. Exit is made to 

DSCBDUMl Routine 



the DSCBs to 
s are to be 
specified, 
control goes 
to DSCBDUMl 
are dumped. 
11 format E 
given data 

the printer, 
nd dumps 
all DSCBs for 

FIXCCW. 



DSCBDUM1 is entered from CKAGAIN to dump 
all DSCBs on a volume. Each DSCB entry in 
the PAT is examined, and DSCB pages are 
read into core. Then, either the specified 
slots, or the whole pages, are dumped to 
the printer. Exit is made to FIXCCW. 

FINDCSD Routine 

FINDCSD searches the PMD for a control 
section dictionary (CSD) , and records the 
number of definitions within that CSD. 
Exit is made to SCANCSD. 

FIXCHK Routin e 

FIXCHK calls CHKSUM to perform checksum 

operations on DSCB slots for patch process- 
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ing. Exit is made to G0WRTTE1 to write the 
patch. 



GETPEV Routine 

GETDEV is entered, for a SET $DISK 
operation* to build the unit control block 
(DCS) for disk. Public packs, where 
required are mounted, as are packs for data 
sets that span more than one volume. The 
routine is initiated by a VAM2UT message to 
the operator. GETDEV2 reads the volume 
label? GETDEV3 puts the PAT page number and 
VOLID in the UCB and marks that phase of 
the operation as "complete". Exit is made 
to CKAGAIN. 

GETDSNAM Routine 

GETDSNAM retrieves the dsname, sets up 
to read the PAT, and passes control to 
CKAGAIN. 

GOWRITE1 Routine 

GOWRITE1 calls WRITE to write the PAT 
page(s). Control is then passed to FIXCCW. 

MODSAVE1 Routine 

MODSAVE1 reads the offset, length, and 
type attributes from a command parameter? 
it saves the EBCDIC displacement of the 
area to be displayed or patched, and passes 
control to CKDIS for a display operation, 
or PATCH for a patch. 

MQDUMP Routine 

MODOMP calculates the number of PMD 
pages to dump; it calls READ to read in the 
pages; it calls DOMP to dump them to the 
printer. Control is then passed to FIXCCW. 

MOVEREL Routine 

MOVEREL is entered to build a relocation 
table of full*word entries for relocated 
pages. Control is then passed to CKAGAIN2, 
within CKAGAIN. 

PAGEOFF1 Routine 

PAGEOFF1 calculates the number of pages 
involved in the patch, or display. The 
number of bytes involved is calculated (and 
is doubled for a hex operation); OPPRNT 
displays the patch at the console. If a 
display was requested, control is passed to 
FIXCCW j for a patch, ASKAGAIN receives 
control. 

PATCH Routine 

PATCH validates the patch and its 
length; it moves the patch to a patch area; 
and it passes control to SCAN. 



PA TCHER Routine 

PATCHER reads in the page(s) to patch, 
and sets up a message which displays the 
area to be patched at the console. Exit is 
made to PAGEOFF1 to display the patch and 
write it to disk. 



PATDOMP Routine 

PATDOMP sets the $PAT flag, and enters 
GETDSO in the GETDSNAM routine. 



PATDOMFl Routine 

PATDUMP1, entered from CKAGAIN, dumps 
the PAT to the printer, and exits to 
FOUNDSCB. 



PODSDDMP Routine 

PODSDUMP calculates the number of pages 
to dump; it builds an external page table 
(via MAKETAB) for the data set. At PDMP3, 
the pages are read and dumped using the 
extents table as an index. Exit is made to 
FIXCCW. 



RDPOD Routine 

RDPOD initially calls MAKETAB to build a 
table of POD pages; it then reads the first 
page of the POD. Exit is made to SRCHPOD. 

READPAGE Routine 

READPAGE reads a specified page and, if 
required, dumps it to the printer. Exit is 
made to FIXCCW. 

PMDPATCH Routine 

PMDPATCH is entered from FINDCSD for a 
$PMD operation; it restores the page table 
(via REFIX), and, if a DUMP or DISPLAY is 
requested, exits immediately to PATCHER. 
For a PATCH operation, PMDPATCH asks the 
operator for the type of patch (length or 
attributes) , and uses SYSIN to read the 
reply. WANTATRB calculates the address of 
the CSECT and CSD. For an attribute 
change, OPPRNT displays the attributes and 
requests the changes; SYSIN reads the 
change. PMDPATCH then makes the attribute 
change and, at DONELOOP, allows the opera- 
tor to re-enter the program for further 
changes, or to terminate the program (which 
causes control to pass to ASKAGAIN) . For a 
length change, CHGLEN calls SCAN to convert 
the CSECT length to binary; it calls OPPRNT 
to display the old length and to request 
the change. SYSIN reads the reply; SCAN 
converts it. CHGLEN makes the change and 
exits to ASKAGAIN. 
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READPMD Routine 

READPMD reads the program module dic- 
tionary (PMD) into core, and then exits to 
FINDCSD. 

READPREL Routine 

READPREL reads the prelude from disk 
into core. If a dump is requested, the 
prelude is dumped to the printer via DUMP, 
and control passes to FIXCCW; for a patch 
or display, the routine exits to PATCHER. 

SCAN Routine 

SCAN converts any valid EBCDIC character 
to binary notation, and returns control to 
the caller. The BITOHEX subroutine con- 
verts binary notation to EBCDIC characters. 

SETDIN Routine 



SRCHPMD Routine 

SRCHPMD reads the module* s PMD into 
core j it determines the displacement of 
each CSD. SCANCSD, entered from SRCHPMD, 
finds the required CSECT or entry point 
definition in the CSD. Any Q-cohs found 
during this PMD search are ignored. The 
routine exits to READPMD. 



SRCHPOD Routine 

SRCHPOD searches the POD for the member 
or alias specified in the current command. 
The member name or alias is hashed; pages 
are read in as needed. When the member is 
found, MAKETAB is called to make an exter- 
nal page table for the data set. Exit is 
made to SRCHPMD for PMD operations, and to 
MODUMP for other dump requests. 



SETDIN positions the SYSIN OCB buffer, 
and calls OCBBOILD to complete the OCB. 
SETDIN defines SYSIN, in the OCB, as the 
card reader and it passes control to 
FOONDSCB. 

SETDISK Routine 

SETDISK sets up a buffer for initializ- 
ing the disk; it flags the operation as 
$DISK; and it exits to GETDEV. 

SETDOUT Routine 

SETDOOT defines the printer as SYSOOT, 
in the SYSOOT OCB, and exits to FOUNDSCB. 



VAMCK Routine 

VAMCK validates the syntax for a $VAM 
operation; it calls OCBBUILD to build and 
scan a OCB; it calls GETDEV to validate the 
device. SCAN converts the page number to 
binary. The routine exits to RDPOD for a 
dump; otherwise, control passes to 
MODSAVE1. 



WRITPREL Routine 

WRITPREL is entered to write the pre- 
lude; it calls WRITE to perform the actual 
write operation; and it exits to FIXCCW. 
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APPENDIX A: COMMON INTERRUPTION AND I/O ERROR HANDLING 



The six I/O interruption typea are: 



J Type (Bits j Functions 



h 

| Error 

I 



j 38-47 (Control is given to 
| (IOERR, if any of these 
j [bits are on. 



| Attention | 32 



(Control is given to 
| ATTN if this bit is 
(on. This request is 
(honored. 



Busy 



35 



(Device End j 37 

I I 

I I 

| Control | 34 

(Unit End (34 

I I 
(Channel End(36 

I I 

I I 

I I 



(SIO is reissued, if j 
| this hit is on. j 

I I 

(Control is given \ 

I IORTRN . | 

I I 

(SIO is reissued if this( 
(bit is on. [ 

I I 

| TIO is reissued until a( 
(device-end condition ( 
(results, if this bit is ( 
(on. i 



IOERR: The CSW, PSW and CAW are saved by 
storing them in. the UCB, whose address is in 
REG2. The device address is taken from the 
UCB and put into REG 4. A sense CCVJ address 
is loaded into REG5, and stored in the CAW 
in low core. If the error is a unit check 
only, or if a device end coniition is pres- 
ent with any error, control is given to 
SENCHK; otherwise control is qiven to 
TYPECHK. 

IORTRN : Here, control is returned via 
REG9. 

SENCHK 

an SIO instruction fron. R 
instruction, which execut 
raand addressed by the CAW 
in the IOERR routine, is 
accepted. The sense and 
the sense CCW are then st 
whose address is in REG2, 
given to TYPECHK. All er 
message to the console an 
enters a wait state. 



The device addre 



ss is entered into 
EG4. The SIO 
es the sense corn- 
that was stored 
issued until it is 
status bytes from 
ored in the UCB 

before control is 
rors result in a 
d the program 



TYPECH K: Control is received either from 
IOERR or SENCHK. The device type causing 
the interruption is determined by checking 
the unit reference byte in the UCB whose 
address is in REG2. . Depending upon the 
device type interruption, control, is given 
to any one of the following locations: 



Device 




Location 


2 311 , 


2 314 


ERR100 


2400 




ERR3 00 


1403 




ERR4 00 


1052 




ERR500 


2340 




ERR6 00 


2301 




ERR700 



I/O ERROR ROUTINES 

Depending on the device type, control is 
given to certain locations as illustrated 
under "TYPECHK". At each location, there 
is the instruction BAL ERRLINK, ERRTEST 
followed by a table of 2-byte entries. 
This instruction loads the address of the 
next instruction (the table) into ERRLINK, 
and gives control to the common I/O error 
checking routine whose entry point is ERRT- 
EST. ERRTEST uses the 2-byte table to 
interrogate sense and/or status bits. The 
first byte of the 2-byte table is examined 
to determine whether or not a sense oyte or 
a status byte is to be tested. Once this 
is determined, the correct sense informa- 
tion bytes are obtained from the UCB whose 
address is in REG2. 



One bit at a time is checked. If t he- 
bit tested is not set, an increment to the 
address of a 2-byte table is made to locate 
the next table entry. This provides the 
next bit to be checked. If the bit is set, 
the type of error is determined, and con- 
trol is given to location A + B where: 



A = the address of the first byte of 
the current table entry. 

B = the value of the second byte of 
the current table entry. 



That is, the second byte is a displace- 
ment of the address of the first byte. 
This enables the routine to get to a loca- 
tion and give control to it. This location 
within the ERRxxx routine that called the 
common I/O error checking routine, pro- 
cesses the error or gives control to any 
number of locations (depending on the 
device and type of error) where these 
errors may be processed. These locations 
are found in one of the following routines. 
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Error Processing Routines 

• Routines common to DASD devices 

• Routines common to tape devices 

• All I/O error retries 

• Operator alert routines common to all 
I/O devices 

• Indexing factor to error message table 

• IOPRNT error message table 
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UNIT CONTROL BLOCKS (UCB) 

Each utility program contains one eight- 
word UCB for each device in use. UCBs 
serve two primary functions: they contain 
information needed for the STARTIO routine, 
and they also have information needed for 
error checking routines. Unit control 
blocks are also a source of user informa- 
tion since they are printed out along with 
an error message for certain types of 
errors. The unit control block format is 
as follows: 



UNIT CONTROL BLOCK FORMAT 



Byte 




Function 


00 




Unit reference number 


01 




Unused 


02-03 




Device address 


04 




CAW protect 


05-07 




CAW 


08-15 




Interruption PSW 


16-23 




Interruption CSW 


24-31 




Sense bytes 


Device 


Type 


Table 


Code 




Device 


X'07' 


1052 


X'OA* 




1403 


X'01' 




2311 


X'02* 




2314 


X'03' 




2400 


x»05' 




2301 


X'06' 




2400 


X'08' 




2540 


X'OB* 




2540 


Error 


Indicator Code Format 



In the event a message output device has 
not been specified by the MSG statement, 
the following error indicators are dis- 



played in the operator console storage 
address lights. The error indicator code 
following structure: 



Indicator 

Code Ex planation 

3 000 General control statement error 

1. Improper sequence 

2. Improper format 
4xxx DASD unavailable 

5 xxx Spare 

6xxx Spare 

7xxx DASD error or unit not ready 

8xxx Input parameter insertion 
incorrect 

9 xxx Input device unavailable 

Axxx Input device, error or not ready 

Bxxx Output device unavailable 

Cxxx Output device error or not ready 

Dxxx Improper unit address specified 

E000 Improper system output file 
statement 

F000, Normal program completion 

Not e f xxx indicator is channel- and unit- 
interface address of error device. 

The CPU is placed in the wait state. 
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APPENDIX C: COMMON UTILITY CONTROL BLOCKS 



OPRTAB and CMDTABLE consist of a three- 
word entries aligned on word boundaries. 
The first eight bytes are a left-adjusted 
character constant command. The third word 
is an unconditional branch to the command- 
processing routine. 



FRMTABLE - I/O device 

MODTAB - message output device 

DEVTAB - direct access device 

The fifth byte is a device type code used 
by the utility I/O routines. 



2 words 



command 



OPRTAB/ 
CMDTABLE 



T 
! 



command 



| 1 word | 

-t H 

| branch | 
J address | 

4 -I 

| *■ 

I T 

•+ 1 

j branch | 

j address j 

-X j 



KEYTAB and KEYTABLE consist of three- 
word entries aligned on word boundaries. 
The first eight bytes are a left-adjusted 
character constant keyword. The third word 
is an unconditional branch to the keyword- 
processing routine. 



j 2 words | 1 word j 

j | branch | 
j keyword j address j 
y x 4 

-1 ! -I 



KEYTAB/ 
KEYTABLE 



T 



keyword 



I 

I T 

-t ^ 

| branch | 

j address | 

.x J 



FRMTABLE, MODTAB, and DEVTAB are five- 
byte entries. The first four bytes are a 
character constant I/O device model number: 



j 4 bytes 



I/O device 
model number 



FRMTABLE 



T 



I 1 byte j 

I I 

j code | 



I/O device 
model number 



T 

... — ^ 

I I 
| code | 



4- 



| 4 bytes | 1 byte | 

j message output | device j 
| device model no. j code | 
j. x ^ 

MODTAB | 

T 1 T 

j message output j device j 
j device model no. | code j 

i x J 

| U bytes | 1 byte J 
|. + . ^ 

| dadevice j j 
| model no. [ code j 
h + H 

DEVTAB | 

T I T 

j dadevice | | 
| model no. | code | 

L J J 
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INDEX 



The index for this manual is organized 
individually by module ID. Refer to the 
specific module for index entries to module 
routines, register usage, tables, etc. Use 
the following list to cross reference the 
module name to the module ID. 

System/360, Model 67 Core Dump - Core Dump 

Direct-Access Storage Device Dump/Restore - 
DASDDR 



BBCCHU 33 
BEGIN statement 



33 



CKCSW routine 38 
CLEARCOR 36 
CLRSCAN routine 35 

CMDTABLE 35 
CONSOLE routine 3 3 
CSR4 register 38 



Direct-Access Storage Device Initialization 
- DASDI 

Direct-Access Storage Device Print - DADUMP 



DEVLUP subroutine 34 

end of volume 37 
END statement 35 
error checks 36 



Core Dump (CEBDP) 46 
alternate PSA 46 
assumptions 46 
attributes 4 6 
bootstrap loader 
BUILDRTN routine 



46 
46 



FORMAT routine 
FORMATSW 37 
FRMTABLE 34,38 



37 



hardware requirements 
HEADER routine 37 



33 



CONTINUE routine 4 7 
COREDUMP routine 47 
CPU information saved 4 6 
CPU dump routine 47 

duplicate lines 4 8 

END card 46 

FIRST routine 4 6 

initialization 46 

IPL record 46 

NOT AVAIL routine 4 7 

ONLYONE routine 47 
operation 4 6 
OPT card 47 



initialization routines 33 

interruption PSW 33 

I/O supervisory routines 3 8 

Job Fulfillment routines 38 

Job Statement Analysis routines 3 5 

KEYTABLE 35 

LISTTEST routine 37 



message routines 38 
missing address marker 
MOVEBUF subroutine 3 8 
MSGPRINT routine 3 5 



operation 3 3 
overflow error 
OVRFLOSW 36 



36 



37 



PAGEPRNT routine 4 8 

PFXSW routine 47 

prefix records 47 

primary PSA 46 

PSA table 46,47 

PSW instruction address 

READ routine 46 
restrictions 46 
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TESTDUP routine 
TXT card 46 



DADUMP (CEBDP) 33 
attributes 33 
ATTN routine 34 
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PRINT routine 3 8 
PRINT statement 35 
PRNTDASD routine 37 
processing routines 36 
program check PSW 36 

READDATA subroutine 37 
RECOVER entry point 36 
REC TABLE 33 
restrictions 33 
routines 33, 34 

SAVREC 33 

SCANCARD routine 35 

SCANSW 35 

START routine 33 

STARTIO routine 3 8 
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TESTINPT 37 
track condition 37 
TRACKNO 33 
TYPEINPT routine 34 

UCBIN 33 
UCBMSG 33 f 35 

VCOUNTY subroutine 37 
VRECOVR routine 36 

2301 error 36 



DAS DDR (CEBDR) 15 
AGAIN14 24 
ANALSENS routine 
ATTN routine 17 
attributes 15 



22 



BADPAGE routine 23 
bad track SAM dump 23 
bad track SAM restore 2 3 
bad track switch 23 
BDPG 2 314 routine 24 
BEG1 routine 20 
BGNADR 20 
BITMAP 24 
BITMAP record 21 
bit map 21 
BLDMAP routine 21 
BUILDCCW routine 21 
bypass switch (RDCARD) 17 

CHANGCYL routine 23 

CHTOSKP routine 23 

CKALT routine 23 

CKALT1 routine (DASDDR) 2 3 

CKCSW 27 

CKINPUT routine 17 

CKVOLLBL routine 21 

CLRERPG 25 

CLRSCAN 17 

CNVRELPG 25 

COMEBACK 24 

control field 22 

control record 16,22 

control statement analysis routines 17 

control statement error 17 

CNGRDCKD routine 22 

CNTRLBUF (control data record) 20,21 

DADSM routine 25 

DASD CCW 22 

data field 22 

define SYSIN 17 

DEVLUP 17 

DEVTAB 17 

DMPDASD routine 22 

DMPDTA routine 22 

DSCB extent analysis 25 

DTABUFCK 2 2 

END statement 17 
ENDADR 20 

ENDOFJOB routine 24 
ENDOFPAT 26 
end-of-disk pack 24 



end-of-job 24 
end-of-reel 24 
ENDREEL routine 24 
EOJ (end-of-job) 22 
EOJA routine 24 
EOJAA routine 24 
EOJ1 routine 24 



FRMTAPE routine 21 
FULLDPSW switch 21 

GETCCW routine 23 

hardware requirements 
HAVEADDR routine 20 



15 



initialization routines 16 

INIT 2314 subroutine 21 

IOPRNT (I/O error print) routine 27 

I/O interruption classification 27 

I/O supervisory routines 26 

limits record (2311 or 2314 to tape) 15 

message routines 27 

MODTKADF routine 22 

MODTKADT routine 22 

MSGCCW 27 

multiple tape unit exception 24 

operation 15 

PATWRITE 26 

PG AVAIL 2 4 

purpose 15 

PUTMAP routine 22 

PREPRWRT routine 22 

PRNT (message output) routine 27 

processing routines 20 

program flow 16 

PRTMSG 24 

RBLDDSCB 25 
RDBDPG 23 
RDCARD routine 17 
RDLABELS subroutine 20 
read protect switch 24 
READDSCB subroutine 21 
restrictions 15 
RLOCAT 24 
routines 18,19,20 
RSTRTAPE routine 22 
RSTRTAP2 routine 2 2 

START routine 16 
START1 routine 17 
STARTIO routine 26 
SWITCHRD work area 17 
SYOCCW 27 

SYSIN UCB (UCBSYI) 17 
SYSIN routine 26 
SYSOUT entry point 27 

TAPEEOF 25 
tape switch 20 
TOFM2311 routine 21 
TOT APE routine 20 
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TRYAGAIN 24 
TSTWRTSP routine 



UCBMSG 27 
UCBOPR 17 
UCBSYI 17 
UCBSYO 27 
V2UNEXCP 26 
V2WRTCHK 26 
VAM 2 16 
VAM2DUMP 25 
VAM2REST 26 



22 



volume label 
VTOCCK 24 
VTOCOK 24 



21 



WAITZ routine 21 

write-to-operator (WTO) routine 27 

WRTCHECK routine 2 3 

WRCHEKSW (write-check-swit ch) 23 

WRTDISK routine" 22 

WRTDISKX 23 

WRITDISKY 23 

WRTDISK1 entry point 23 

WTO (write-to-operator) routine 27 



DASDI (CEBDI) 2 
ADTOLIST 7 
absolute loader 
alternate track 
attributes 2 
ATTN routine 5 



(GETALT) 



BITMAP (VAM 2301) 10 

Clearing the PAT 10 
control statement analysis 
CSR4 5 

CKCSW routine 5 
CKINPUT routine 5 
CKVOLLBL-DASDI 7 
CLRSCAN 7 
CONSTR1 8 
CONSTR2 9 

DADEF control card (GEN00) 
DASDIPAT 10 

END statement 11 

ENTPOIT1 routine 9 

EOJ 10 

error processing 7 

exit 3 

EXTNT 9 

FMTVTOC 9 

formatting routines 7 

GEN00 7 

GET ALT YZ 11 

GET ALT 4 11 

hardware requirements 2 
HEX ' 00 ' 8 
HEX* 55' 8 



initialization 3 

initiation 2 

INTALT 7 

I/O interruptions 5 

IOPRNT 11 

I/O Supervisory routines 

IPL 2 



KEYWORD parameters 6 



LASTCARD (EOJ) 10 
LENGTH 5 
LISTAREA 7 
LOADA 8 

Message routines 11 

OPPRNT 11 

OPPRN1 entry point 11 

OPRCCW 11 



PAT 2 
PAT CLEAR 
PRNT 11 
purpose 2 
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RDCARD 7 

restrictions 2 
routines 4 

SCANADR 7 
STARTUP prelude 2 
START routine 3 
STARTIO routine 5 
STARTIOX entry point 
SYS IN routine 5 
SYSOUT tape (EOJ) 10 
SYSOUT message device 

TABOO 7 

TAB55 7 

tapeEOF (EOJ) 10 

Termination routines 

TRKPRNT 11 

VTOC 2 

VAM 2 2,3 

VAM 2301 10 

Volume Label Checking 



WRTVTOC 9 

WTO (write-to-operator) 



11 



10 
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VAM2UT (CEBVP) 52 
$ (dollar sign) 
$PAT flag 57 



54 



52 



absolute loader 
alias 58 

ASKAGAIN routine 56 
ATTN routine 54 
attributes 52 
attributes change 57 

offset, length, type 57 
available buffer storage 52,54 
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binary conversion 56 
BITOHEX routine 58 
buffer 

available storage 52 

SYSIN UCB 58 
BUILDSCB routine 56 



CALL command 52 

CEBVP (see VAM2UT) 52 

change attributes 57 

change length 5? 

CHGLEN 57 

CHKDIS 56 

CHKSUM 56 

CKAGAIN routine 56 

CKCSW routine 52 

Command Processing routin s 54 

FOUNDS CB 54 

CKBUF2 54 

COMRTN 54 
commands 52 

CALL 52 

RUN 52 

SET 52 

DUMP 53 

DISPLAY 53 

PATCH 53 
COMRTN1 entry point 54 
configuration 52 
continue reply 56 
Control Section Dictionary (CSD) 
convert to binary 56 
CSD address 57 
CSECT address 57 

data sets span more than 

one volume 57 
define SYSIN 52 
define SYSOUT 58 
defined disk 56 
device configuration 52 
DISKONN routine 56 
DISPLAY command 53 
display patch 57 
dollar sign ($) 54 
DONELOOP 57 
DOS ARE A 56 
DOVL routine 5 6 
DOVLP routine 56 
DSCB pointer entries 56 
DSCB slot number 56 
DSCBDUM1 routine 56 
DSCBDOMP routine 56 
DSCBREL table 56 
dsname retrieved 57 
dummy UCB 52 
DUMP command 53 
dump DSCBs 56 

E DSCBs 56 

DSCBs for data set 56 
dump PAT 57 
dump PM 57 D 
dump prelude 58 

enabled interruptions 22 

exit 52 

external page table 57 



56 



FINDCSD routine 56 
FIXCHK routine 56 
format F, DSCB dump 56 
FOUNDSCB routine 5 4 

GETDEV routine 57 
GETDEV2 57 
GETDEV3 57 
GETDSNAM routine 57 
GETDSO 57 
G0WRITE1 routine 57 

hardware requirements 52 
hash member name/alias 58 

I/O attention handler 52 
I/O interruptions received 52 
I/O status check (CKCSW) 52 
initial attention interruption 
initialization routines 53 

START 54 

ATTN 54 

initiation 52 

interruption 

initial 52 

to cancel 56 

enabled 52 

keywords 54 

length change 57 
loader 52 

MAKETAB 57 

maximum pages for multi 

volume data set 52 
maximum volumes 52 
member length 5 2 
member name 58 
MODSAVE1 routine 57 
MODUMP routine 57 
MOVEREL routine 57 



52 



offset, length, type 

operation 52 

OPPRNT routine 57,56 

PAGEOFF1 routine 57 
pages, maximum 52 
PAT 

dump 57 

read 56 

write page 57 
patch a 2314 52 
patch a disk 52 
PATCH command 53 
PATCH routine 57 
PATCHER routine 57 
PATDUMP routine 57 
PATDUMP1 routine 57 
PDMP3 57 

PMD pages to dump 57 
PMD read 58 
PMDPATCH routine 57 
POD page table 57 
POD, read 57 
PODSDUMP routine 57 
prelude 



57 



read 58 

write 58 

processing routines 54 

public pack mounting 57 

RDPOD routine 57 

read PAT 56 

read patch 57 

read PMD 58 

read POD 57 

read prelude 58 

READPAGE routine 57 

READPMD routine 5 8 

READPREL routine 58 

REFIX 57 

relocated pages 57 

relocation table 56,57 

RELTAB 56 

restore page table 57 

restrictions 52 

retrieve dsname 57 

REVPAT 56 

routines 

initialization 53 
command processing 54 
processing 54 

RUN command 52 

SCAN routine 58 
second level commands 54 
SET $DISK operation 57 
SET command 52 
SETDIN routine 58 



SETDISK routine 58 
SETDOUT routine 58 
SRCHMPD routine 58 
SRCHPOD routine 58 
START routine 54 
stop reply 56 
syntax 

$VAM 58 

check 

TSSS 52 
SYSIN 

define 52,54 

operator console 54 
SYSIN UCB buffer 58 
SYSOUT=printer 58 



tape resident 52 

transfer control to reader 54 

TSSS syntax 52 

VAtfCK routine 58 
volume label patch 56 
volume label 56 

write to disk 56 
volumes, maximum 52 

WANTATRB routine 57 
write PAT page 57 
write prelude 58 
write volume label 56 
WRITPREL routine 5 8 
WRTVLBL routine 56 
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